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CHAPTER 1 - INTRODUCTION 


An acronym for COmmon BuSinesSs Oriented Language, COBOL 
is an industry standard high-level language widely used for 
(but not limited to) business processing applications. 
Preferred by many for its ease of use and high level of 
self-documentation, COBOL has gained further acceptance due 
to the ease with which programs can be transferred between 
different manufacturers' systems. 


Designed for use with Codex Intelligent Terminal 
Systems, CDX-CBL COBOL is a microcomputer implementation of a 
subset of the American National Standards Institute (ANSI) 
1974 COBOL Level One standard. In addition to the many ANSI 
high-level features supported, the following modules are also 
included: nucleus, table handling, sequential file access, 
and library operations. 


The File Management System included in COBOL permits 
sequential and ISAM disk file access, multiple files, and 
duplicate keys, as well as allowing records to be added, 
deleted, or updated. Also included is the UCALL statement, 
which allows programs written in other languages to be called 
and executed by Codex COBOL programs. | 


aie HARDWARE SUPPORT REQUIRED 
The minimum hardware configuration required to support 
COBOL on the CODOS based system consists of: 
-- CDX-68 Basic Display Terminal with the 
appropriate firmware options 
-- 32K bytes of user memory (RAM) 


-- .5 Mb or 1 Mb Diskette Storage (CDX-FS Series) or 
10 Mb Disk Storage (CDX-FS/DR) 


~~ Microcomputer Module D (CDX-SBC/D) 
-- System Self-Test firmware package (CDX-SST/D) 


-- CObug firmware package (CDX-CBG/D) 


1.2 OPTIONAL HARDWARE SUPPORTED. 


CODOS also supports a variety of printers, including 
matrix and character printers (the Codex SP Series) including 
the text quality (55 CPS) printer. These optional printers 
are linked to the Basic Display Terminal through either the 
Microcomputer Module D or the Printer Interface Module 


Page 1-01 


(CDX-PI) . 


1.3 SOFTWARE SUPPORT REQUIRED 


| The CODOS Software package (71709) is required. 


1.4 SOFTWARE INSTALLATION 
Each software disk shipped contains a file called 


"INSTALL.SA." This file contains all necessary instructions 
to install any CODEX software system. | | 
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CHAPTER 2 - INTRODUCTION TO COBOL 


As itsS name implies, COBOL (COmmon Business Oriented 
Language) is a high-level computer language that is suited 
for business applications since it is quite efficient in 
manipulating large data files. COBOL'S vocabulary, syntax, 
and punctuation comes from the English language. This 
feature makes COBOL eaSier to learn than machine-oriented 
languages since there is no need to know machine-language 
code and computer hardware architecture. The programmer can 
use English words and arithmetic symbols to direct computer 
operations. A few typical COBOL sentences appear below. 


ADD NEW-PURCHASES TO TOTAL-CHARGES. 

MULTIPLY QTY BY UNIT-PRICE GIVING VALUE. 

PERFORM FEDERAL-~TAX-CALCULATION. 

IF ITEM-CODE IS NUMERIC, GO TO CHECK-~ACCOUNT-NUMBER. 


2.1 THE COBOL SYSTEM 


COBOL sentences are easily understandable to the 
programmer, but must be translated into machine-language code 
before they can be performed by the computer. The COBOL 
compiler checks the source program statements for compliance 
with COBOL language rules, then translates them into 
computer-understandable object code, and assigns addresses to 
the program's instructions and data. The compiler does not, 
however, check the program's logic. : | 


In order to compile a program, the COBOL compiler is 
first loaded into the computer from the diskette or disk. 
Next, the source program is entered into the machine, where 
the compiler reads and analyzes it before converting it into 
object code. The compiled program in object code form is 
used at runtime to execute the program with user-supplied 
data running under a COBOL interpreter. 


Compiler output may be sent to the printer or CRT screen 
for ease of checking erroneous items. Such errors must be 
corrected before the program can be ones compiled and 
subsequently executed. , 


The logic of the program is checked by executing it with 
test data and comparing the results with the desired output. 
Until it works as expected, the source program is modified, 
recompiled, and run again. Once created, the object program 
may be used repeatedly to process data. 
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2.2 COBOL PROGRAM STRUCTURE 


A COBOL program is Siwided:. inte four major functional 
parts that are called divisions. The four division headers 


are: 


IDENTIFICATION DIVISION. 
ENVIRONMENT DIVISION. 
DATA DIVISION. 

PROCEDURE DIVISION. 


in that format and order. Each division header must appear 
on a line by itself. 3 


The Identification Division identifies the program by 
Stating its name. It may also list the programmer, 
installation, and dates. Remarks may be included that 
explain the program's purpose. A sample Identification 
Division appears below. 


IDENTIFICATION DIVISION. 
PROGRAM-ID. © SCREEN-TO-DISKETTE. 
AUTHOR. | COMPUTER-PERSON. 
INSTALLATION. CODEX~-PHOENIX. 
DATE-WRITTEN. APRIL 2, 1980. 
DATE-COMPILED. APRIL 2, 1980. 


The Environment Division specifies the computers that 
compile the source program and execute the object program. 


This division also links the input and output files with 
thair respective CAMNIt ar peripherals, A sample Environment 


wii & 2 ed iat to oh VY te wwlivuUuiwws 


Division appears below. 


ENVIRONMENT DIVISION. 
CONFIGURATION SECTION. 
SOURCE-COMPUTER. CDX-68. 
OBJECT-COMPUTER. CDX-68. 
INPUT-OUTPUT SECTION. 
FILE-CONTROL. 
SELECT DISK-FILE ASSIGN TO DISK DATADISK:DATAFILE. 
SELECT PRINT PILE ASSIGN TO PRINTER. | 


The Data Division has a maximum of three sections. The 
File Section describes the record structure of each file 
named in the Environment Division. The Working-Storage 
Section describes data items stored in internal work areas. 
The Linkage Section contains internal areas that may be . 
accessed by both COBOL programs and called assembly language 
programs and allows the programmer to pass data between © 
programs. A sample Data Division appears in the program in 
Appendix E. | 


Page 2-02 


The Procedure Division contains the commands that direct 
the computer to process data and generate output ina 
specific order. Alternate logic paths may be listed for 
performance under certain conditions. A sample Procedure 
Division appears in the program in Appendix E. 


2.3 COBOL REFERENCE FORMAT 


The reference format, which provides a method for 
describing COBOL Source programs, is described in terms of 
character positions or columns on a CRT line. The line may 
be up to 80 characters in length. Rules for spacing given in 
the discussion of the reference format take precedence over 
all other rules for spacing. Division of a source program is 
ordered as follows: the IDENTIFICATION DIVISION, then the 
ENVIRONMENT DIVISION, then the DATA DIVISION, then the 
PROCEDURE DIVISION. Each division must be written according 
to the rules for the reference format. 


The standard COBOL line format is as follows: 


Columns 1-6 Six-digit sequence number 
— Column 7 continuation area 

Columns 8-11 area A 

Columns 12-72 area B 

Columns 73-80 identification area 


Since the COBOL programs are maintained by the EDITOR, a 
Slightly more compact format is used: 


Columns 1-4 four-digit line number 
Column 6 continuation area 
Columns 6-7 area A 
Columns 8-80 — area B 


The sample program shown in Appendix E is an example of 
the compressed format. If line format compatability with the 
COBOL standard is desired, the following format should be 
used: 


Columns 1-4 four-digit line number 
Column 6 continuation area 
Columns 7-10 area A 

Columns 11-71 area B 


The line numbers may then be easily expanded to six 
Aaah e with the EDITOR prior to writing the source program to 
external media. 
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2.3.1 REFERENCE FORMAT REPRESENTATION 


Margin L designates the line number area consisting 
- & ) of four digits followed by a space. 


Margin C represents the continuation column-column 6. 
| | An * (asterisk) in margin C causes the 

compiler to treat the entire line as a 
comment line. 

A / (slash) in Margin C will cause the 

compiler to start printing the source 
program on the top of a new page. The 
remainder of the line is treated as a 
comment. 

A - (hyphen) in margin C is used to 
continue a non-numeric literal from 
one line to the next. 


Margin A represents the first column in the 
coding area. Normally, this will be 
the same column as margin C (column 6). 
However, column 7 may be used if desired. 


Margin B- represents the second area in the coding 
portion of the line. Normally, column 8 is 
used. However, column 11 may be used if 
compatibility with the standard COBOL line 
format is desired. 


When a non-numeric literal is continued from one line to 
another, a hyphen is placed in Margin C of the continuation 
line and a quotation mark is placed in Area B following the 
hyphen. All spaces at the end of the continued line and any 
spaces following the quotation mark of the continuation line 
and preceding the final quotation mark of the literal are 
considered part of the literal. Note that each line in this 
system is terminated by a carriage return. If it is desired 
that additional spaces are to be included at the end of the 
continued line, they must actually be typed in. 
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2.3.3 DIVISION HEADER 


The division header must be the first line of a division 
reference format. The division header starts in margin A 
with the division-name followed by a space, the word 
DIVISION, and a period. No other text may appear on the same 
line as the division header. 


2.3.4 SECTION HEADER 


The section header begins on any line except the first 
line of a division reference format. The section header 
starts in Area A with the section-name followed by a space, 
the word SECTION, and a period followed by a space. No other 
text may appear on the same line as the section header. 


A section consists of paragraphs in the ENVIRONMENT and 
PROCEDURE DIVISIONS and Data Description entries in the DATA 
DIVISION. Paragraph-names but not section-names are 
permitted in the IDENTIFICATION DIVISION. 


2.3.5 PARAGRAPH-NAME AND PARAGRAPH 


The name of a paragraph starts in Area A of any line 
following the first line of a division reference format (or 
Section header if sections are used) and ends with a period 
followed by a space. 


A paragraph consists of one or more succesSive 
sentences. The first Sentence in a paragraph begins in Area 
B of either the same line as the paragraph-name or the line 
immediately following. Successive sentences begin either in 
Area B of the same line as the preceding sentence or in Area 
B of the next line. 


A sentence consists of one or more statements followed 
by a period and a space. When the sentences of a paragraph 
require more than one line, they may be continued on 
successive lines. 
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2. 4 COBOL PROGRAM FORMAT 


Within each division, COBOL jones are arranged into 
statements using the formats that are described in this © 
manual. One or more statements form a sentence, which is 
terminated by a period. 


One or more sentences, in turn, constitute a paragraph, 
which should be given a name so that program control can 
branch to a paragraph simply by referencing its name, 
Paragraph names do not contain the word paragraph, but are 
terminated by a period. A paragraph name may be followed on 
the same line by one of its sentences. 


Similarly, several paragraphs make up a section that can 
also have a name that is followed by the word SECTION and a 
period, and must appear on a line by itself. 


The Identification Division contains no section names. 
The Environment and Data Divisions are composed of fixed-name 
sections, while section names are optional in the Procedure 
Division and are created by the ‘programmer. 


2.5 COBOL LANGUAGE ELEMENTS 


COBOL words are formed from the set of alphabetic, 
numeric, and special characters that are listed below. 


Character ieoeach 


Oe err Digits 
~—6CA,B,.. ed Letters 
Space 
Plus Sign 
Minus Sign 
Asterisk 
Slash 
Equal Sign 
Dollar sign, hexadecimal Sign 
Comma 
Semicolon 
Period, decimal point 
Quotation mark 
Left parenthesis 
Right parenthesis 
Greater than symbol 
Less than symbol 
Debit 
Credit 


ee ee sews DY WN * FO + 
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NOTE: A space is a COBOL character and takes up a byte of 
program memory. Single or double quotation marks 
must be used with the Codex COBOL compiler. 


These characters form words that have specific meanings 
to the COBOL compiler. The basic elements of the COBOL 
language are: 


Programmer-Ssupplied names 
Reserved words 

Symbols 

Literals 

Special registers 

Level numbers 

Pictures 


Reserved words are fixed and cannot be modified by the 
programmer. The other elements, however, are created by the 
programmer according to certain rules. All of these elements 
are discussed in this section with the exception of level 
numbers and pictures, which are discussed in Chapter 4, The 
Data Division. 


2.5.1 PROGRAMMER-SUPPLIED NAMES 


In COBOL, programmer-supplied names are symbols for the 
data, subroutines, internal word areas, etc. of a program. 
These names are grouped into two categories: data-names and 
procedure-names. 


Data-names are assigned in the Data Division to the data 
items (also called fields) of a record that are processed by 
the program. In the following example, two data items are 
added, and the sum placed in a third field. 


ADD FIRST-FIELD, SECOND-FIELD GIVING TOTAL-FIELD. 
que stacnteavanclcencinimeeinn 
data-names 


Procedure-names are assigned to Procedure Division 
paragraphs for reference purposes. A procedure-name may be 
composed solely of numeric characters, but two references to 
a numeric procedure name must have the same value and the > 
Same number of digits to be considered equivalent by the 
compiler. For example, 0023 is not equivalent to 23 when | 
both are procedure names. : 
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In the example shown below, the program branches to 
either the CREDIT-ACCT or BILL-ACCT paragraphs, depending 
whether or not the value of data item ACCT-BALANCE is 
negative. 


IF ACCT-BALANCE IS NEGATIVE GO TO CREDIT-ACCT, 
ELSE GO TO BILL-ACCT. 


CREDIT-ACCT. 


BILL-ACCT. 


The following rules must be observed when creating a 
programmer-supplied name: 


1. The name cannot be more than 30 characters long. 


2. Only characters A through Z, 0 through 9, and hyphens 
are allowed. 


. A hyphen cannot begin or end the name. 


3 

4. Spaces are not allowed in a name. 

5. Reserved words must not form the whole name. 
6 


. Data-names must have at least one letter; procedure- 
names may be formed entirely of digits. 


Some valid programmer-Supplied names are: > 


NAME SEARCH-TABLE 
STREET-ADDRESS REFUND 

NET- INCOME UPDATE-MASTER-FILE 
UNIT-PRICE COMPUTER-TOTAL 


Some invalid programmer-supplied names are: 


LAST NAME (embedded space). 

DATE (reserved word) 

#1  (# iS a special character) 

4 (A valid procedure-name, but an 


invalid data-name) 
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2.5.2 RESERVED WORDS 


Reserved words are a fixed set of words that have 
Special meanings for the COBOL compiler, and always appear in 
capital letters in a COBOL statement format. A reserved word 
cannot be used as a programmer-supplied name, but if two or 
more reserved words are connected by hyphens, they can be 
used aS a data-name or a procedure-name as shown below. 


Reserved Words Valid Data-Names 
FILE OPEN-FILE 

OPEN 

PERFORM PERFORM-VALUE 
INITIAL INITIAL-VALUE 
VALUE COMPUTE-VALUE 
COMPUTE 


The three types of reserved words are key words, 
optional words, and connectives. Each COBOL statement must 
contain at least one key word to impart the basic functional 
meaning of the statement to the compiler. Examples of key | 
words are: ADD, MULTIPLY, CLOSE, PERFORM, and PICTURE. 


All key words of a COBOL statement format are underlined 
in the following examples to indicate that they must be 
included. 


Key words are: verbs such as SUBTRACT and OPEN; 
required syntactical words such as TO and GIVING; or words 
with a specific functional meaning such as NUMERIC. 


Optional words are not underlined in the following 
examples of a statement format. These words have no effect 
on the generated object code; if used, however, they must be 
spelled correctly and cannot be replaced by another word. 
For example, the format: 


IF data-name-1 IS EQUAL TO data-name-2 


was used in writing the following statement. 


A IS EQUAL TO B 
A IS EQUAL B 

A EQUAL TO B 

A EQUAL B 


All of the above statements are valid and equivalent since IS 
and TO are optional words. | 
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Optional words in one statement format may be keywords 
in another. For example, in the MOVE statement format: 


MOVE data- ~name-1 a0 data-name-2 


TO is a key word. However, in the conditional statement 
Format: | 


a data-name-l IS EQUAL TO data~ —name-2, .e- 


TO is an optional word. 


Connectives make a statement easier to read and 
understand. The logical connectives AND, OR, AND NOT, and OR 
NOT are used in compound conditional statements. The | 
qualifier connective OF and IN connect a programmer-supplied 
name with its qualifier, The comma can be used as a series 
connective for two or more consecutive data- “names or 
literals. For example: 


ADD A, B TOC 


means that the values of A and B are added to C. 


2.5.3 SYMBOLS 


LSAT ONT 2 hal £4 &- 
COBOL symbols impart specific meanings to th 


iit iyo ed S 
and can be divided into three groups: punctuation, 
arithmetic, and conditional. The punctuation symbols are: 


Punctuation Symbol | Meaning 


Space 
’ Comma 
: Semicolon 
; | Period 
© Or ** Quotation mark 
( Left parenthesis 
) Right parenthesis 


The arithmetic symbols are: 


Arithmetic Symbol Meaning 
+ Addition, plus sign 
7 Subtraction, minus sign) 
~ Multiplication 
/ Division 
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The conditional symbols are; 


coe Symbol . iisokini 


= Equal to 
> Greater than 
< Less than 


There are no > (greater than or equal to), < (less than or 
equal to), or # (not equal to) symbols in COBOL. Reserved 
words that describe these relational symbols are their 
equivalents. 


The following rules for symbols must be observed in 
writing a COBOL program, 


1. One space separates words, arithmetic and conditional 
symbols, parenthetical expressions, and literals. 


Consecutive spaces are treated as a single space, except 


when contained in a literal. 
2. A semicolon or comma may be followed, but not preceded, 
by a space. A decimal point, however, is not followed 
by a space. | fds * 
3. A period ends a sentence. 


4. A comma may separate successive statement operands as 
well as a series of clauses. | 


5. A semicolon may separate a series of statements. 


6. A left parenthesis is followed by a space; a right 
parenthesis is preceded by a space. 


7. Plus and minus symbols that indicate positive and 
negative values do not have a space following them. 
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2.5.4 LITERALS 


A literal is a fixed value that may be used in an 
instruction. There are three kinds of COBOL literals: 
figurative eine Panta: numeric literals, and non-numeric 
literals. A fourth type, hexadecimal constants, are also 
used by the Codex COBOL compiler aS screen control codes. 


The figurative constants and their values are: 


Figurative Constant , —_ Value 

ZERO | A string of one or more zeroes. 

ZEROS — | | 

ZEROES 

SPACE A string of one or more spaces. 

SPACES 

HIGH-VALUE A string of one or more characters 

HIGH-VALUES | that have the highest value in the 
| ASCII collating sequence. 

LOW-VALUE A string of one or more characters 

-LOW-VALUES ~ that have the lowest value in the 

_ ASCII collating sequence, | 
QUOTE A string of one or more quotation 


QUOTES marks that cannot bound a non-numeric 


lataral 
LLeECLAL e 


ALL | _ Generates a string of characters 
specified by the non-numeric literal 
following it. May not be used in 
DISPLAY or STOP statements. 


Singular and plural forms of a figurative constant are 
equivalent and may be used interchangeably. Only ZERO can be 
used for any data item. The rest must be used with either 
alphabetic or alphanumeric data-names. 
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The length of the figurative constant string depends on 
the following rules: 


1. When it is moved to or compared with the contents of a 
data-item, the length of the string is equal to the data 
item's length. 

2. When it is not associated with a data item, such aS ina 
DISPLAY or STOP statement, the string iS one character 
long. 

The rules for writing numeric literals are: 


1. It may consist of digits 0 through 9 with an optional 
decimal point and/or positive or negative sign. 


2. Embedded spaces are not allowed. 


3. A poSitive or negative sign, if used, must be the left- 
most character. 


4. A decimal point must not be the right-most character of 
the numeric literal. 


5. Unsigned numeric literals are positive. 
6. More than one decimal point is not allowed. 


Some valid numeric literals are; 


+547 “1.23 
-O1 7431 
74.1 +8. 46 


Some invalid numeric literals are: 


2,568 | (comma ) 
Po Be S (embedded space) 

$56 7 (dollar sign) 

'38' ~(quotation marks) 

248K (alphabetic character) 

128- | (minus sign must be left-most) 
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_. Non-numeric literals are alphanumeric and are useful in 
creating report headers and screen displays. Rules for 
creating non-numeric literals are: : 


Le Quotation marks always bound the non-numeric literal. 


2. With the exception of the quotation mark, any COBOL 
character or reserved word may form the non-numeric 
literal. 


3. Its maximum length is 255 characters. 
Some non-numeric literals are: 


'NON-NUMERIC LITERAL' 
"759" _ 
"LAST NAME FIRST NAME MIDDLE INITIAL' 


When a numeric literal is bounded by quotation marks, it 
is treated as a non-numeric literal and classified as 
alphanumeric. | 


Hexadecimal constants are used by the Codex COBOL 
compiler as display control codes; these are listed in 
Appendix B. A hexadecimal constant is a string of digits 
preceded by a dollar sign, where each digit pair is the 
contents of one byte. All hexadecimal constants are 
considered to be non-numeric literals, and therefore 
alphanumeric. 


Some hexadecimal constants are: 
SFF 


$30313233 
$8386 
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2.5.5 SPECIAL REGISTERS 


COBOL has the following special registers: DATE, 
BREAK~KEY, TIME, and LINAGE-COUNTER. These registers can be 
read but not ere and can be used with IF and MOVE 
statements. | 


DATE iS a Six-character date in the form MMDDYY that can 
be set at the CODOS ready prompt (=). For example: 


77 TODAY PIC 99/99/99. 
MOVE DATE TO TODAY. 


TIME is a four-character time in the form HHMM that can 
be set at the CODOS ready prompt (=). For example: 


MOVE TIME TO CURRENT-TIME. 


BREAK-KEY is a one-character code that indicates whether 
Or not the break key specified by the program has been 
pressed. Y is returned if a break has occurred; N means that 
a break has not occurred, 


LINAGE-COUNTER yields the current printer line number 
whose value does not include the top margin lines. Example: 


IF LINAGE-COUNTER EQUALS 60 THEN PERFORM TOP-PAGE. 
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2.6 COBOL FORMAT NOTATION 


COBOL elements may not be arbitrarily strung together 
when writing a program, but must be used in fixed statement 
formats that are explained in this manual. Each format shows 
the correct syntax order, required and optional reserved 
words, and indicates where information is to be supplied by 
the programmer. 


The following format notation rules are used in this 
manual, | 


1. Underlined words with all capital letters are keywords 
and are required in the Statement unless they appear in 
square brackets, 


2. Words that have all capital letters but are not 
- underlined are reserved words that may be included at 
the programmer's discretion. If included, these words 
must be spelled correctly. 


3. Elements within braces ({ }) indicate that the 
programmer must choose one of them to use in the 
statement. 

4. Elements in square brackets ({ ]) are optional. 


5. Lowercase words must be replaced as indicated with a 
data-name, procedure-name, or literal. 


6. A horizontal ellipsis (...) means that the previous item 
may be repeated, 


7. A vertical ellipsis means that commands have been 
omitted in the program sample shown as an illustration. 


8. Punctuation and symbols are required when they appear in 
a format. Additional punctuation may be used if it 
conforms to the punctuation rules that were described 
earlier in this chapter. 
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CHAPTER 3 - THE IDENTIFICATION & ENVIRONMENT DIVISIONS 
3.1 THE IDENTIFICATION DIVISION 


The Identification Division must contain the name of the 
program. Optional entries are the name of the author, the 
dates that the program was written and compiled, and security 
information. The format of the Identification Division is: 


IDENTIFICATION DIVISION. 

PROGRAM-ID. program-name. 

[AUTHOR. comment-sSentence... .] 
[INSTALLATION. comment-sentence... .] 
[DATE-WRITTEN. comment-sentence... .] 
[DATE-COMPILED. comment-sSentence... . 
[SECURITY. comment-Sentence... .] 


] 


The IDENTIFICATION DIVISION header and each paragraph 
name must appear in the order shown above and must start at 
Margin A. All comment-Sentences are regarded as commentary 
by the compiler, which only checks to see that each one ends 
with a period. 


The PROGRAM-ID paragraph is the only required paragraph 
in the Identification Division. It states the name of the 
COBOL source program at hand. 


The AUTHOR, INSTALLATION, DATE WRITTEN, and 
DATE-COMPILED paragraphs are self-explanatory. 


The SECURITY paragraph specifies which personnel should 
be allowed to use the program. Provisions for entering and 
checking a password, however, are not made in this paragraph. 


The Comment Lines should always be included in a COBOL 
program to explain the basic purpose of the program. 


A sample IDENTIFICATION DIVISION is shown below. 


IDENTIFICATION DIVISION. 


PROGRAM-ID. INVENTORY-RPT. 

AUTHOR. COMPUTER PERSON. 

INSTALLATION. CODEX-PHOENIX. 

DATE-WRITTEN. APRIL 7, 1980. 

DATE-COMPILED. APRIL 7, 1980. 

SECURITY. THIS PROGRAM IS ONLY TO BE USED 
| BY SHIPPING AND RECEIVING 


PERSONNEL. 
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362 ‘THE ENVIRONMENT DIVISION 


| The Environment Division is ewan orieaced: | since it 
defines the physical characteristics of the computer system 
that compiles and/or executes the COBOL program. It also 
links the files to be processed with their respective 
computer peripherals, such as disk or printer. The format of 
the Environment Division is shown below. 


ENVIRONMENT DIVISION. 
CONFIGURATION SECTION. | 
SOURCE-COMPUTER. sSource-computer-entry. 
OBJECT-COMPUTER. object-computer-entry 
[MEMORY SIZE integer CHARACTERS]. 

INPUT-OUTPUT SECTION. 
FILE-CONTROL. 

SELECT clause 

[ASSIGN clause] 

[ORGANIZATION clause | 

[ACCESS clause] 

[RECORD KEY clause] 
[I-O-CONTROL. SAME AREA clause]. 


The division header and all paragraph names begin at 
Margin A. The clauses of a paragraph begin either on the 
Same line as the paragraph name, or at Margin B. 


Each paragraph can contain a COPY statement that refers 
to a file containing the entire paragraph. See Chapter 5, 
for an explanation of the COPY statement. 


3.2.1 THE CONFIGURATION SECTION 


The CONFIGURATION SECTION states the names of the 
computers that are to compile the source program and execute 
the object program. 


The SOURCE-COMPUTER paragraph specifies the computer 
that is to compile the source program, while the 
OBJECT-COMPUTER paragraph describes the computer on which the 
compiled program is to process data. The contents of both 
paragraphs, however, are treated aS commentary by the 
compiler, which just checks to see that a period ends each 
one. 


When compiling or executing a program on a CDX-68 
System, this section should be written as shown below: 


CONFIGURATION SECTION. 


SOURCE-COMPUTER. CDX-68. 
OBJECT-COMPUTER. CDX-68. 
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3.2.2 THE INPUT-OUTPUT SECTION 


The INPUT-OUTPUT SECTION provides the information that 
is needed to control the transmission of data between 
external storage media and the object program. The 
FILE-CONTROL paragraph names the files involved in the 
program and links them with their respective computer 
peripherals. The optional I-O-CONTROL paragraph describes 
file overlap information. 


The SELECT clause is required as the first entry in the 
FILE-CONTROL paragraph and names an input or output data file 
that is used in the COBOL program. The format of this clause 
1S: 


SELECT file-name-l 


File-name iS a programmer-Supplied name that is used to 
reference the file for the rest of the program. This name 
must not be used for any other item in the program. 


The ASSIGN clause links a file with the external device 
that either stores or receives the file. This clause must 
immediately follow the SELECT clause. The format of this 
clause is: 7 


ASSIGN TO implementor-1 
Acceptable implementor-names are: 


PRINTER ; 
DISK diskid:file-name [:suffix] 


where diskid = the 8-character disk identification. 


file-name = 8 alphanumeric characters that form the name of 
the file as recorded in the directory on the 
disk or diskette. The first character must be 
alphabetic. All file-names have DF suffixes, 
with the exception of those whose organization 
is CODOS-SA. 


suffix = 2 character suffix (e.g. SA) for CODOS-SA type 
files. If omitted, the default suffix is "DF." 
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The ORGANIZATION clause states whether the file has a 
sequential or indexed organization. The format of this 
clause is: 3 | 


ORGANIZATION IS { SEQUENTIAL 
| ¢ INDEXED © 
CODOS-SA 


When INDEXED organization is specified, the RECORD KEY clause 
must also be included. When this clause is omitted, | 
sequential organization is assumed. When CODOS-SA is 
specified, the file is designated as a CODOS source 
Sequential type file. The number of CODOS-SA type files is 
limited to eight for a given program. 


| The ACCESS clause tells how records are obtained from or 
placed into the file. The format of this clause is: 


ACCESS MODE IS |} SEQUENTIAL 
| RANDOM 
DYNAMIC 


With SEQUENTIAL access, records are obtained or placed in the 
File one after the other. RANDOM and DYNAMIC modes require a 
RECORD KEY clause and the assignment of the file to a 
direct-access device such as disk or diskette; the specified 
record is located or placed according to its record key. [In 
DYNAMIC mode, the file may be accessed either sequentially or 
randomly, depending on the I/O statement. For example, a 
record can be found by its record key in a random read; the 


records foliowing it can be read sequentially; then, another 


random read can. switch back to random access, 


The RECORD KEY clause is ‘required when INDEXED 
ORGANIZATION, ACCESS IS RANDOM, or ACCESS IS DYNAMIC clauses 
have been specified. The format of this clause is: 


RECORD KEY IS dataname [WITH DUPLICATES] 


Dataname is used by READ and WRITE statements to locate a 
record in the file. The data item that dataname represents 
must be part of the record and cannot be more than 60 
characters long. The WITH DUPLICATES option permits records 
that have duplicate record keys to exist in the file. 
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3.2.3 THE I-O-CONTROL PARAGRAPH 


This optional paragraph defines file overlay 
information. The format of this paragraph is: 


I-O-CONTROL. 
SAME AREA FOR filename-l [, filename-2]... 


The SAME AREA clause causesS data areas to overlap for all 
files mentioned in the clause; therefore, only one of the 
listed files may be open at a time. A COBOL program may have 
more than one SAME AREA clause, but a specific filename may 
appear in no more than one such clause. 
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CHAPTER 4 - THE DATA DIVISION 


The Data Division describes the structure, organization, 
and characteristics of all data that is manipulated and 
processed by the program. A maximum of three sections may be 
contained in this division: the File, Working-Storage, and 
Linkage Sections. The FILE Section describes the records in 
each file mentioned in the Environment Division. The 
Working-Storage Section describes internally-generated data 
and internal work areas that are used by the program. The 
Linkage Section describes memory areas used for 
program-to-program communication. 


The organization of the Data Division is: 


DATA DIVISION. 

FILE SECTION. 

FD entry for file-name-] 

Record description entries for file-name-l. 


WORKING-STORAGE SECTION. 
Internal independent data item seeerceions 
Internal grouped item descriptions 
LINKAGE SECTION. 
Linkage item descriptions 


4.1 THE FILE SECTION 


The File Section contains two types of entries: FD 
(file description) entries and record description entries. 


4.1.1 FD (FILE DESCRIPTION) ENTRY 


The FD entry describes the physical characteristics of 
one file. For disk files, its format is: 


FD file-name-1l 
[RECORD CONTAINS clause] 
[LABEL RECORDS clause] 
[DATA RECORD clause]. 


For printer files, the format of the FD entry is: 
FD file-name-2 
[LINAGE clause] 


[TOP clause] 
[BOTTOM clause]. 
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FD must begin at Margin A, and any additional lines of 
this entry begin at Margin B. The file-name is identical to 
the file-name listed in the Environment Division following 
the word SELECT. 


The RECORD CONTAINS clause states the file's record 
length. The Codex COBOL compiler accepts records that have a 
maximum length of 502 characters. Since the compiler 
calculates the record's length from its record description 
entry, this clause is not required, but is useful as a 
documentation aid. The format of this clause is: 


RECORD CONTAINS integer-1 CHARACTERS 


The LABEL RECORDS clause is not required by Codex's 
COBOL compiler, which treats it aS a comment entry. The 
format of this clause is: | 


LABEL / RECORD IS STANDARD 
RECORDS ARE OMITTED 


All file labels are internal to the CDX-68 file management 
system. 


The DATA RECORD clause states the peogeenierssuepiied 
name for each record in the file. The format of this clause 
is: 


DATA - { RECORD IS. ) data-nane-t [data-name-2]... 


Mees re & ab © owe 


Since a record-name is presented in each record description 
entry, this clause is not required, but is useful as a 
documentation aid. The records in a given file may have 
different lengths and formats, but their order in a DATA 
RECORD clause is not important. Only one record from a file 
may be processed at a time. : | 


For example, if one record is read from a file, and 
another record is read from the same file, the second record 
replaces the first in computer memory. 


DATA RECORD IS PRINT-RECORD , 
DATA RECORDS ARE MASTER-RECORD, DETAIL-~1, DETAIL~2 


The LINAGE clause states the maximum number of lines 
that are printed per page. The format of this clause is: 


LINAGE IS integer 
The maximum number is 60 lines. When this clause is omitted, 


the compiler assumes that each page contains 60 panes 
lines. 
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The TOP clause specifies the size of the top margin in 
line units. The format of this clause is: | 


TOP IS integer 


When this clause is omitted, the top margin is assumed to be 
6 lines. 


The BOTTOM clause reveals the size of the page's bottom 
margin in line units. The format of this clause is: 


BOTTOM IS integer 


This clause is unnecessary if the LINAGE clause has been 
included. When both LINAGE and BOTTOM clauses are omitted, 
the default bottom margin is 0 lines. For example: 


Top Margin 


Lines Per Page 


Bottom Margin 


4.1.2 RECORD DESCRIPTION ENTRIES 


The record description delineates the structure, 
Organization, and characteristics of the file's records. 
Fach record within a file must have its own record 
description, as shown in the following example. 


DATA DIVISION. 

FILE SECTION. 

FD DISK-FILE, RECORD CONTAINS 80 CHARACTERS, 
LABEL RECORDS ARE STANDARD, DATA RECORDS ARE 
MASTER-RECORD, DETAIL-1, DETAIL-2. 

(Record description entries for MASTER-RECORD) 

(Record description entries for DETAIL-1) | 

(Record description entries for DETAIL-2) 


Before presenting the format for a record description 
entry, data organization within a record should be reviewed. 
Records are usually divided into data items or fields that 
contain categories of information to be processed. A COBOL 
field is either a group or elementary item. Group items are 
divided into smaller fields; elementary items are not 
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subdivided. Consider the structure of the record shown | 


RECORD-1 


NAME | ADDRESS 


|LAST FIRST STREET | CITY | STATE 


| 
| 


RECORD-1 is directly divided into four data items: two 
elementary and two group. NAME and ADDRESS are group items 
Since they are further subdivided: NAME into LAST, FIRST, 
and M-I; ADDRESS into STREET, CITY, STATE, and ZIP. ID-NUM 
and PHONE are not subdivided, therefore they are elementary 
items. : | 


A COBOL record description specifies the name, order 
from left to right, and size of the record's data items, and 
tells how they are related to each other. For example, 
RECORD-1's data items could be listed in the following 
manner: 


RECORD-1 | : record's name 


ID-NUM © elementary item 

NAME group item 
LAST 
FIRST elementary items 
M-I 

ADDRESS group item 
STREET - —— 
CITY elementary items 

| ZIP Oo 
PHONE elementary item 


To make this list understandable to the computer, level 
numbers are used to show the data item hierarchy. Level 
numbers 01 through 15 may be used in a record description 
entry for the Codex COBOL compiler. Level 01 is always used 
for the record's name, and starts at Margin A. 
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7 A description Of RECORD-1 that shows the level numbers 
iss | 


01 RECORD-1. 


02 ID-NUM (elementary item description). 
02 NAME. | 
03 FIRST (elementary item description). 
03 LAST (elementary item description). 
03 M-I (elementary item description). 


02 ADDRESS. 
03 STREET (elementary item description). 


03 CITY (elementary item description). 
03 STATE (elementary item description). 
03 ZIP (elementary item description). 
02 PHONE (elementary item description). 


The period after the words RECORD-1, NAME, and ADDRESS 
means that they are group items and therefore divided into 
smaller fields. Level numbers 02 and 03 start at either 
Margins A or B; indenting them might make the program easier 
to read. 


Note that the direct immediate subdivisions of RECORD-1 
have level number 02, and that the subdivisions of each group — 
item have level number 03. Other level numbers could have 
been used provided that the level number of a group item is 
smaller than that of its elementary items. 


The compiler regards all data items that follow a group 
item as belonging to that group item until the compiler 
encounters a level number equal to or greater than the level 
number of the group item. 


The format and order of a record description entry is: 


FILLER [COPY statement ] 
[PICTURE clause] 
[USAGE clause] 
[BLANK WHEN ZERO clause] 
[JUSTIFIED RIGHT clause] 
[LINE clause] 
[COLUMN clause] 
[OCCURS clauSe] 


level-number oa" [REDEFINES clause ] 


FILLER indicates that the data item either contains no 
information, or that the information is not referenced 
directly in the program. 


The REDEFINES clause is used with either group or 


elementary items in the file section that DO NOT HAVE a level 
number of O01. A level 01 REDEFINES clause is permitted in 
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the Working Storage Section. This clause allocates the same 
computer memory space for different items at different times 
during program execution, It may also provide an alternate 
grouping or description of the same data. A REDEFINES clause 
in the file section at level 01 can cause PROGRAM OVERFLOW 
errors or erroneous data or runtime errors. A record | 
description entry's format with this clause is: 


level-number data-name-1 REDEFINES data-name-2 


The level numbers of data-name-l and data-name-2 must be 
identical. These data-names may be a group or an elementary 
item. | | 


The following are some guidelines for the use of the 
REDEFINES clause. These guidelines reference the example: 


nn A REDEFINES B... 
1. B must not be a redefinition itself. 


2. "nn" must not be level 01 within the file section (level 
01 redefinition is permitted within the working storage 
section). 


3. The size of A must equal the size of B. 


4. The level numbers of A and oe be equal. 


rr Tn se 


group. 


6. The program may contain multiple 01 record definitions 
for a file following the "FD" entry in the file section. 
The use of multiple 01 levels implicitly defines several 
records which share the same memory area (a redefinition 
by another name). | | 


The description selected for an item that is redefined 
depends on the reference made to it. For example, if B 
redefines A, the statement MOVE X TO A moves X to the area 
described as A; MOVE Y TO B moves Y to the same area in 
computer memory, but which has been redefined as B. The 
description of this memory area depends on the order in which 
such statements are executed. For example: 


05 PRICE-NOT-NUMERIC REDEFINES PRICE-IN 
05 NON-ALPHABETIC-DATA REDEFINES DATA-IN 


The COPY statement is described in the 
Compiler-Directing Statements section of Chapter 5. 
Basically, this statement enables prewritten statements to be 
included in several programs. 
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The PICTURE clause describes the length and character 
type of an elementary item. It may also specify an 
operational sign, an assumed decimal point, and editing 
characters. The format of this clause is: | 


Fg} [Is] character-string 
PIC | 


The character string must be no more than 30 characters long. 


COBOL classifies all data as being alphabetic, 
alphanumeric, or numeric. Alphabetic data contains only the 
letters of the English alphabet and spaces. Alphanumeric 
data is formed from any printable characters. Numeric data 
consists of digits 0 through 9 and a positive or negative 
Sign. 


Numeric data may have an assumed decimal point and/or 
operational Sign in its PICTURE clause. A numeric field may 
be edited by moving it to a field whose PICTURE clause causes 
the insertion of a decimal point, comma, or dollar sign, as 
well as suppressing the printing of leading zeroes. The 
resultant edited item is always classified as alphanumeric. 


The three categories of PICTURE characters that describe 
data are: | 


A (alphabetic data) 


X (alphanumeric data) Data character 
9 (numeric data) symbols 

S (Signed numeric field) Operational 

V (assumed decimal point) } symbols 

B (space) 

0 (zero) 

+ (plus) 

- (minus) 

CR (credit) | 

DB (debit) Editing symbols 
Z (zero suppression) | 

* (check protection) 

S$ (dollar sign) 

, (comma) 


(period or decimal point) 
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Data ehavacter symbols Say that the item is either 
alphabetic, alphanumeric, Or numeric. Alphanumeric fields 
cannot be used in arithmetic operations. The number of data 
characters in the PICTURE character string must equal the 
length of the data item as shown in the following examples: 


Field pce Data a: Character String 
5 characters | aisle | AAAAA or A(5) 
4 characters Alphanumeric XXXX Or X(4) 
6 characters | Numeric 999999 or 9(6) 


As seen by these examples, parentheses are a shortcut to 
showing the number of times that the data character is 
repeated in the character string. 


Operational symbols show the sign and assumed decimal 
point position in a numeric item. Only one S and/or V may 
appear in a PICTURE clause. When used, S must be the © 
leftmost character of the string and indicates the presence 
of positive or negative data. Unsigned numeric fields are 
assumed to be positive. V shows an assumed decimal point 
position in a numeric item, and cannot be the rightmost 
character. Both S and V do not actually take up space in the 
data item. For example, S99V99 is a four-character numeric 
item. This sign will take up one-half byte in packed numeric 
and will cause an additional byte if the data Size is an even 
number . 


Before data is printed, it is often desirable to edit it 
to make it more readable. Editing symbols specify the type 
of editing to be done before an elementary item is printed. 
The editing process inserts certain characters and/or 
Suppresses the printing of others. An edit is performed by 
moving the data from a source field to a receiving field 
whose PICTURE clause contains the editing characters. 


Parentheses are not allowed in a PICTURE clause 
character string that contains editing characters. Commas, 
decimal points, slashes (/), spaces (B), or zeroes should be 
written in the string where they appear in the output item. 
An example of an edited move is shown below. 


Field - PICTURE ‘Data 
Source 99999 54321 
Receiving © 999.99 543.21 


The receiving field in the above example has 6 characters to 
include the printed decimal] point; the source had only five. 
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A decimal point can appear only once in. a PICTURE 
character string and cannot be the right-most character. 


Z's replace leading zeroes with spaces when printing 
numeric items. A 2Z is written in each numeric position 
where a leading zero is to be suppressed by a space. 
Examples of zero suppression are shown below: 


Source Source Receiving Received 
PICTURE Data PICTURE Data 
9999V99 0123456 ZZ,222.99 1,234.56 
999V99 00123 ZZZ.99 Pees 
99V99 0000 ZZ.99 00 


Asterisks (*) replace leading zeroes with asterisks. 
This process is often used when printing the dollar amount on 
a check. Examples of these are shown below: 


Source Source Receiving Received 

PICTURE Data PICTURE Data 

99999V99 0195430 #e RRR 99 *1,954.30 
999V99 00575 eo EROS a*5 15 
999V99 — 00850 kEK OO **8.50 


Z's and asterisks are often used with the fixed dollar 
Sign ($) when printing dollar amounts. To place a fixed 
dollar sign in an item, write one dollar sign ($) as the 
String's left-most character. Examples of such items are 
shown below: 


Source Source Receiving Received 

PICTURE Data PICTURE Data 

99999V99 0154025 $22,222.99 $ 1,540.25 
999V99 00575 7 S*** .99 S*¥*5 75 
99V99 0005 $ZZ.99 S$ .05 


The dollar sign ($) can also specify an item that has a 
floating dollar sign. The difference between a fixed and a 
floating dollar sign is shown below. 


Fixed Dollar Sign Floating Dollar Sign 
PICTURE $22,222.99 PICTURE $$$,$$$.99 
$78,359.25 _ $78,359.25 
$ 482.89 | $482.89 
> 1.50 | $1.50 
S 02 $.02 
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Note that there must be one more floating dollar sign than 
the number of character positions through which it is to 
float. | | | 


A fixed-position plus (+) or minus (-) sign may be 
written as either the first or last character of a PICTURE 
string, but cannot be used with the dollar sign. A minus 
editing symbol causes a minus Sign to be printed in that 
position for negative data, and a space in that position for 
positive data. A plus symbol prints a plus sign in that 
position for positive data, and a minus. sign for negative 
data. Unsigned data is always considered to be positive. A 
few examples are shown below. | 


Source Source Receiving Received 
PICTURE Data | PICTURE Data 
S999 123 -999 =173 
S99V99 4995 -Z2Z2.99 49.95 
S99 76 | Z9 76 


Plus and minus symbols can also be used as floating 
editing symbols. The rules for writing these symbols are the 
same as for writing floating dollar signs, except that plus 
and minus symbols are used, as shown in the following 
examples. | 


id e 
~~ Fawn a OFA Mm LC Dp 


Source | Source Receiving Received 

PICTURE Data | PICTURE | Data 
S9999V99 000542 man 99 -5.42 
S99V999 06985 ===. 999 -6.985 
S99V99 0005 +++.99 +.05 
S99 48 ++9 +48 


Credit (CR) and debit (DB) symbols occupy two positions 
each and may appear only as the rightmost characters of a 
PICTURE string. For negative data, the edited result | 
contains CR or DB as indicated. For positive data, CR or DB 
is replaced by spaces. A few examples are shown below. 


Source Source 7 Receiving = #=Received 

PICTURE Data PICTURE _ Data 
S99999 | 12345 | ZZ,Z2Z9CR 12,345CR 
S99V99 1580 ZZe99CR 15.80CR 
S9V99 349 Z.99DB 3.49DB 
S99 23 | Z9DB 23DB 


Page 4-10 


The USAGE clause specifies the form in which data is 
stored in the computer and can be written at any level. When 
this clause is used with a group item, it applies to all of 
the group's elementary items. Additionally, the USAGE clause 
of an elementary item cannot contradict the USAGE clause of 
the group item to which it belongs. 


The format of the USAGE clause is: 


DISPLAY 

USAGE IS ae 
COMP 
INDEX 


DISPLAY means that the item is stored in ASCII format where 
one character is stored in each byte; the leftmost byte of a 
numeric item can contain an operational sign in addition to a 
digit. COMPUTATIONAL defines a packed decimal data item 
whose length is specified by its PICTURE clause. It can only 
be used for unedited numeric items. COMPUTATIONAL should be 
used only to save memory or file space. 


INDEX defines an item that is called an index data item 
and will contain a value that corresponds to an occurrence 
number of a table element. Index data items must be 
elementary data items. Since USAGE IS INDEX totally defines 
the internal representation of the data, a PICTURE clause is 
not used with an index data item. 


The BLANK WHEN ZERO clause may be used only in 
conjunction with an edited numeric PICTURE clause. When the 
source item has a value of zero and the BLANK WHEN ZERO 
clause is used for the receiving numeric edit field, the 
edited item contains all spaces. The format of this clause 
iss 


BLANK WHEN ZERO 


The JUSTIFIED RIGHT clause is used only with alphabetic 
or alphanumeric elementary items. The format of this clause 
Les 


JUSTIFIED RIGHT 
JUST 


This clause is applicable only to alphabetic or 
alphanumeric items. Normally, when data is moved into an 
alphabetic or alphanumeric field, the source data is aligned 
at the leftmost character position of the receiving data item 

and moved with space fill or truncation on the right. 


When the receiving data item is described with the 


JUSTIFIED clause and the sending data item is larger than the 
receiving data item, the leftmost characters are truncated. 
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When the receiving data item is described with the JUSTIFIED 
clause and is larger than the sending data item, the data are 
aligned at the rightmost character position in the data item 
with other characters space-filled. 


The OCCURS clause eliminates the need for separate 
entries of repeated data items and supplies information 
necessary for the use of subscripts as described in Chapter 
5, Table-Handling Statement section. The format of this 
clause is: : 


OCCURS integer _— 
[INDEXED BY index-name-1 [, index-name-2]...] 


Examples: 


OCCURS 10 
OCCURS 10 TIMES | 
OCCURS 5 TIMES INDEXED BY RATE-INDEX 


4.2 THE WORKING STORAGE SECTION 


The Working-Storage Section describes data items that 
store either intermediate results developed during program 
execution or literals that are needed by the program. Such 
items may represent either independent or grouped work areas. 
The basic organization of the Working-Storage Section is: 


WORKING-STORAGE SECTION. 


Tndevendent item descrivti 
allen 6b WA Pw eer Yew SLE ws WY “ww 


Grouped item description 


D b- 


4.2.1 INDEPENDENT AREAS IN WORKING-STORAGE 


An independent area is a Single data item that stands 
alone and has the level number of 77. It is not subdivided, 
and it is also not a subdivision of another item. The format 
of an independent Working-Storage area is: 


77 data-name [USAGE clause] 
| [PICTURE clause]. 
[JUSTIFIED clause] 
[VALUE clause]. 


All of these clauses have been described previously in the 
File Section of the Data Division, excepting the VALUE 
clause. 


The VALUE clause defines the initial or constant value 
of the item and has the format: 


VALUE IS literal 
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The literal must belong to the same data category as the 
character string in the item's PICTURE clause: a non-numeric 
literal for an alphabetic or alphanumeric PICTURE; a numeric 
literal for a numeric PICTURE. A numeric literal's value 
must lie within the range specified by the PICTURE or USAGE 
clauses. For example: 


VALUE IS ' NAME ' 
VALUE IS +0.85 
VALUE ZERO 


4.2.2 GROUPED AREAS IN WORKING~STORAGE 


A grouped area is formed from several data items that 
are grouped together in the same way that a record's items 
are related to each other, and is often used for storing 
tables, report headers, and screen display formats. The 
rules for writing grouped area description entries are the 
Same as for writing record description entries. 


The format of a grouped area in working-storage is: 


level-number data-name [REDEFINES clause] 
[PICTURE clause] 
[USAGE clause] 
[LINE clause] 
[COLUMN clause] | 
[BLANK WHEN ZERO clause] 
[JUSTIFIED RIGHT clause] 
[VALUE clause] 
[OCCURS clause]. 


All of these clauses have been defined in this chapter with 
the exception of the LINE and COLUMN clauses which are used 
in describing a screen format. 


A 01 level group area becomes a CRT format description 
when a LINE or COLUMN clause appears before the first VALUE 
clause in the group area description. Subsequent entries do 
not have to include LINE or COLUMN clauses unless they are 
needed to position the data item. Refer to Chapter 6 for 
more detail on CRT control. ) 


Before each screen data description entry, the compiler 
generates the column FILLER entry that contains CRT control 
codes. Group area sizes are automatically increased by the 
compiler to include these internally generated codes. 
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The basic description format for a data item that is to 
be displayed on the screen is: © 


level-number FILLER PICTURE (iauee 
[LINE clause] 
[COLUMN clause] 
VALUE clause. 


The LINE clause indicates the line number on which the 
associated data item is to be displayed. The format of this 
clause is: 


LINE IS }/ integer 
NEXT PAGE 
The integer specifies the line on which the data item will be 
displayed. NEXT PAGE clears the screen prior to writing the 


new data items at the top of the display; this option is used 
only with a 01 level data item. 


If the LINE clause is omitted, the data is displayed on 
the same line as the previous data item if the new column 
number is larger than the column number of the previous data 
item. Otherwise, the new data item is displayed on the 
following line. For example: 


LINE IS 5— 
‘LINE NEXT PAGE 


The COLUMN clause states the number of the screen column 
in which the leftmost character of the data item will be 
displayed. The format of this clause is: 


COLUMN IS integer 


The integer must not be l, since this column is used for CRT 
control codes. For example: 


COLUMN IS 38 
COLUMN 65° 


When specifying a column position for a data item, leave 
at least a one-column separation between items for the 
storage of internally generated screen control codes. If the 
COLUMN clause is omitted, the data is displayed starting in 
column two of the line. If both the LINE and COLUMN clauses 
are omitted, the new data is separated by one column from the 
end of the previous item. 


Video attributes are automatically generated for screen 
data descriptions based on the type of the literal contained 
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in the VALUE clause. When a numeric or non-numeric literal 
is specified, the data item is a protected field, meaning 
that its content cannot be altered. A figurative constant 
such as ZEROES or SPACES results in an underlined and 
unprotected data item. | 


When a hexadecimal constant is specified in the VALUE 
clause, the data item is composed entirely of screen control 
codes; these codes are listed in Appendix B. The default 
line and column positions are not changed. 


4.2.3 STORING TABLES IN WORKING-STORAGE 


Tables that are used by COBOL programs may have one, 
two, or three levels. These tables may be stored in the 
Working-Storage area by using the REDEFINES, OCCURS, and 
sometimes VALUE clauses as described in this section. 


Table codes and values can be either stored in the data 
description through the VALUE clause, or can be loaded during 
program execution by Procedure Division statements. In this 
discussion, all table values will be contained in VALUE 
clauses. 


A Single-level table has one variable or code that has a 
corresponding value as shown in the following example. 


Sale Code Bonus 


These values are stored in one of two ways as follows: 


Method 1: 
01 BONUS-TABLE-VALUES. 
05 FILLER PIC 999 VALUE 100. 
05 FILLER PIC 999 VALUE 250. 
05 FILLER PIC 999 VALUE 450. 
05 FILLER PIC 999 VALUE 700. 
Method 2: 


01 BONUS-TABLE-VALUES. | 
| 05 FILLER X(12) VALUE '100250450700'. 


Method 1 is easier to read and thus is a better 


documentation aid than Method 2. Also, Method 2 cannot be 
used if COMP usage is required. 
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| -gince the VALUE clause may noe be tisea in conjunction 
with the REDEFINES and OCCURS. clauses, the next and last step 
is to write the following. 


01 BONUS-TABLE REDEFINES BONUS-TABLE-VALUES. 
05 BONUS OCCURS 4 TIMES PIC 999. 


The above table will be searched by using subscripts in 
Procedure Division statements (see Chapter 5, Table- -~Handling 
Statements). 


This method works when the variable's code goes from 1 
to the last number with no gaps. In many tables however, the 
code does not do this, as shown below. 


Part Number Retail Price 
15 —2.50 
17 0.45 
31 6.30 
85 1.00 


Notice that only the code needs to be in ascending 
order; the price does not. The following method stores such 
a. table that is searched with subscripts. 


01 PART-TABLE-VALUES. 


g t 
05 FILLER PIC X(5} VALUE '15250 


qo \ 
7] 
05 FILLER PIC X(5) VALUE 117045", 
05 FILLER PIC X(5) VALUE '31630'. 
05 FILLER PIC X(5) VALUE '81100'. 
01 PART-TABLE REDEFINES PART-TABLE-VALUES. 
05 PART-TABLE-ENTRY OCCURS 4 TIMES. 
10 PART-NUMBER PIC 99. 
10  RETAIL-PRICE PIC 9V99. 


To convert this table to an indexed one, add an INDEXED 
BY clause to the PART-TABLE-ENTRY OCCURS 4 TIMES statement. 
In this example, INDEXED BY PART-INDEX could be used. Refer 
to the Table-Handling Statements section in Chapter 5 for a 
further explanation of an indexed table. 
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In two- and three-level tables, the value chosen depends 
on two and three variables, respectively. Storing such 
tables requires OCCURS clauses within OCCURS clauses. For 
example, consider the following two-level table. 


Product Code 


01-03 02 12 22 40 

Quantity 04-06 05 14 27 46 
Sold 07-09 08 16 33 52 
SSS 10-12 ll 20 37 58 
13-15 14 24 42 64 


The following description stores this table. 


01 COMMISSION-TABLE-VALUES. 
05 FILLER PIC X(12) VALUE '010302122240'. 
05 FILLER PIC X(12) VALUE '040605142746'. 
05 FILLER PIC X(12) VALUE '070908163352". 
05 FILLER PIC X(12) VALUE '101211203758'. 
05 FILLER PIC X(12) VALUE '131514244264', 
01 COMMISSION-TABLE REDEFINES COMMISSION-TABLE-VALUES. 
05  QUANTITY-SOLD OCCURS 4 TIMES 
INDEXED BY QUANTITY-INDEX. 
10 LO-QUANTITY PIC 99. 
10 HI-QUANTITY PIC 99. 
10 PRODUCT-CODE OCCURS 5 TIMES 
INDEXED BY PRODUCT-INDEX. 


To describe this table for subscripting, simply omit the 
INDEXED BY clauses. An indexed table may still be accessed 
by the use of subscripts. A three-level table is described 
in the same way as a two-level table, except that a third 
variable is added whose level number would be 15 (using the 
sequence in the above table) and which also has an OCCURS 
clause to show how many values it has in the table. 


4.3 THE LINKAGE SECTION 


The Linkage Section provides the user with a maximum of 
256 internal memory bytes for program-to-program 
communication. Information in this common area may be 
accessed by the COBOL program being executed or by a program 
or subroutine that has been loaded by a CALL or UCALL 
statement in the Procedure division. 


Information stored in the Linkage Section can be 
referenced based on physical location. The following example 
Shows how the Linkage Section can be used to send parameters 
to an assembly routine. 
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COBOL Program: 


IDENTIFICATION DIVISION. 


LINKAGE SECTION. 
O01 EXAMPLE. 
02 EX] PIC xX. 
02 EX2 PIC Xx. 


PROCEDURE DIVISION. | 


MOVE A-PARAM TO EX]. 
MOVE X-PARAM TO EX2. 
UCALL USERPROG. 


(end) 


Assembly Routine: Routine is entered with X register 
| | containing address of first parameter. 


TTL USEPROG 
OPT REL | 

START LDAA 0,X GET A-PARAM 
LDX 1X GET X-PARAM 
(end) 
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CHAPTER 5 - THE PROCEDURE DIVISION 


The Procedure Division of a COBOL source program 
specifies a sequence of actions that must be taken to solve a 
given problem. The following units may be used to form the 
Procedure Division: statements, sentences, paragraphs, and 
sections. 


A statement consists of a COBOL verb followed by 
reserved words and data-names or literals. The three basic 
types of statements are: imperative, conditional, and 
compiler-directing. 


An imperative statement specifies an action that the 
computer will unconditionally perform, such as ADD, GO TO, 
and OPEN. 


A conditional statement describes a condition that is 
tested to determine which of several logic paths should be 
taken, such as in the IF statement. 


A compiler-directing statement tells the compiler to 
take certain actions at compilation time, such as occurs when 
a COPY statement is included. 


A sentence is a series of one or more statements, and is 
terminated by a period. A semicolon may be used to separate 
the statements within a sentence, 


A paragraph consists of one or more sentences, and is 
identified by a procedure-name that begins in Margin A and 
ends with a period. 


A section is formed from one or more paragraphs, and has 
a section name which consists of a procedure-name that is 
followed by the word SECTION and a period. A section name 
begins at Margin A and appears on a line by itself. 


The Procedure Division is rather loosely structured 
Since it consists of a series of paragraphs that may be also 
grouped into sections. Statements are executed in the order 
in which they appear, but the execution sequence can be 
altered by sequence control statements. | 


Paragraph and section names are not required in a COBOL 
program, but are used when sequence control statements refer 
to them in order to alter the sequence of program execution. 


The functional categories of Procedure Division 
statements are: input/output, data manipulation, arithmetic, 
conditional, sequence control, table handling, and compiler 
directing. | : | 
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5.1 INPUT/OUTPUT STATEMENTS 


Input/output statements are directed to computer 
peripherals, such as disks that contain data files. An input 
data file is opened, a record is read and processed, and then 
the output is sent to an output file. Data sent to the 
printer is considered to be an output print file in COBOL. 
When all processing has been completed for a file, it is 
closed. 


The input/output statements are: OPEN, START, READ, 
WRITE, REWRITE, DELETE, DISPLAY, ACCEPT, and CLOSE. 


5.1.1 THE OPEN STATEMENT 


An OPEN statement must be the first statement that is 
performed on any file. This statement however, does not 
actually obtain or dispatch data: READ and WRITE statements 
do that. The format of the OPEN statement is: 


OPEN [INPUT file-name-1l [, file-name-2]...] 
[OUTPUT file-name-l [, file-name-2]...] 
[I-O file-name-1l [, file-name-2]...] 
[EXTEND file-name-1l [, file-name-2]...] 


Specify one of the above options for each file in the 
program. The OUTPUT option is equivalent to the CLOSE 
filename WITH DELETE statement since neither one saves data. 


To save the output data, select the I-O option for an indexed 
file, To add new records at the end of an existing 


oa Ne. din we Ww! d= wt hy 


sequential file, select the EXTEND option. 


A file must first be closed before a second OPEN 
statement can be executed on that file. For example: 


OPEN INPUT TRANSACTION-FILE OUTPUT PRINT-FILE 
OPEN EXTEND PARTS-FILE 
OPEN I-O MASTER-FILE 


CLOSE PARTS-FILE TRANSACTION-FILE 
OPEN INPUT PARTS-FILE 


e 
e 
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Table 5-1. I/O COMMANDS 


Page 5-03 


or ie 2 THE START STATEMENT 


The START statement provides the means for positioning 
the current record pointer within an indexed file for record 
retrieval. This statement requires that its associated file 
be open in INPUT or I-O mode. The format of the START 
statement is: | 


EQUAL TO 
START file-name [KEY IS ( GREATER THAN data-name] 


< 
[INVALID KEY imperative-statement ] 


> 
NOT (Less THAN 


The file must have an indexed organization and dynamic access 
mode and must have been opened in INPUT or I-O mode. 


The data-name is either the file's RECORD KEY or an 
alphanumeric data item that is subordinate to the RECORD KEY 
and starts in the same character position as does the RECORD 
KEY. | 


The EQUAL option compares the data-name's current value 
with the corresponding field in the file's records. When a 
match is found, the current record pointer is positioned at 
that record. | | 


The other KEY options operate in a Similar manner to the 
EQUAL TO option; the current record pointer is placed at the 
first record that satisfies the comparison. If no record 
does so, an INVALID KEY condition exists, and the position of 


the current record pointer is undefined. 


When the KEY clause is omitted, the ‘compiler acts as if 
the statement: — 


START file-name KEY IS EQUAL 70 data-name 


had been written, where the data-name is equal to the file's 
RECORD KEY. For example: 


START CUSTOMER-FILE 


START PERSONNEL-FILE KEY = EMPLOYEE-NUMBER 
INVALID KEY PERFORM NOT-IN FILE 
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5.1.3 THE READ STATEMENT 


The READ statement makes a record available for 
processing whose file has been opened in INPUT or I-O mode. 
When a READ statement is executed, the selected logical 
record is accessible in the logical record area in computer 
memory as defined by its record description entry. The 
record is available there until a subsequent READ | or CLOSE 
statement is executed for that file. 


When multiple record descriptions follow a File 
Description (FD) entry, the programmer is responsible for 
recognizing which record is present in the logical record 
area at any time. The READ statement has two formats: 


Format 1: 
READ file-name [NEXT] [INTO identifier ] 


[AT END imperative-statement ] 


Format 2: 
READ file-name [INTO identifier] 


INVALID KEY imperative-statement 


Before a Format 1 statement can be executed, the current 
record pointer must be positioned by the prior, successful 
execution of an OPEN, START, or READ statement. Format 1 
provides for the sequential processing of a sequential or 
indexed file by making available one of the following: the 
next logical record from a sequential file; the next record 
with the next higher RECORD KEY value in the collating 
sequence for a sequentially-accessed indexed file. For 
example: 


READ DISK-FILE-1 
READ DISK-FILE-1l NEXT 


For indexed files whose access mode is dynamic, the NEXT 
option must be specified for the sequential retrieval of the 
next logical record in the file. A series of imperative 
statements in the AT END option are executed when an 
-end-of-file status is detected. For example: 


READ DISK-FILE-1 NEXT INTO WORK-RECORD 
READ DISK-FILE-1 INTO WORK-RECORD 


A sequential file whose AT END condition has been | 
recognized cannot be READ again until successful CLOSE and 
OPEN statements have been executed for it. An indexed file 
whose AT END condition is recognized also cannot be READ 
again until one of the following actions has been 
successfully executed for it: a CLOSE statement followed by 
an OPEN statement; a Format 2 READ statement for a file in 
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“dynamic access mode; or a START statement, For “example: 
| | READ. DISK-FILE- 1 AT END GO TO END-JOB _ 


Format 2 is used for random processing of indexed files. 
in random or dynamic access mode. This statement compares — 
the file's RECORD KEY value to the content of the 
corresponding key field in the file's records. When a match 
is found, the current record pointer is positioned at this 
record which makes it available for processing. If no match 
is found, an INVALID KEY condition exists, and the specified 
imperative statement is executed. For example: | 


READ MASTER-FILE INVALID KEY PERFORM 
: | NO-RECORDS 
READ CUSTOMER-FILE INTO WORK-RECORD 
3 INVALID KEY PERFORM NOT-IN-FILE 


The INTO option of both formats is equivalent to a READ 
followed by a MOVE since the record becomes available in both 
the file's record area and in the specified identifier area. 
When the file has records with varying lengths, the longest 
zengee is aeeunee for the moved record. | | 


5.1.4 THE WRITE STATEMENT 


The WRITE statement releases a logical record to an 
output file. The released logical record may or may not 
still exist in the logical record area for the file. An OPEN 
OUTPUT, OPEN EXTEND, or OPEN I-O statement must have been 
performed for the file before a WRITE statement can be 
executed for it. The two formats of this statement are: 


Format 1: | 
WRITE record-name [FROM identifier-1] 


BEFORE | ADVANCING identifier-2 lines| 
) AFTER integer LINES 
PAGE 
Format 2: | 
WRITE record-name [FROM identifier-1] 


INVALID KEY imperative-statement 


A WRITE statement with the FROM option is equivalent to 
a MOVE identifier-1l TO record-name statement that is cor eONed 
by a WRITE record-name statement. 


| Porat 1 is used for files spencd. wee sequential access. 
The ADVANCING option applies to files containing output to be 

_ printed, where the line is printed BEFORE or AFTER advancing 

a nonnegative number of lines or to the top of the next page. 
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For example: 


WRITE PRINT-RECORD 
WRITE PRINT-RECORD FROM WORK-RECORD 
WRITE PRINT-RECORD AFTER ADVANCING 2 LINES 


Format 2 is used for all other files. The imperative 
statements in the INVALID KEY clause are executed when the 
file either has no space for the record or has been opened 
for OUTPUT or I-O and a record corresponding to the contents 
of the RECORD KEY already exists in the file. For example: 


WRITE PROCESSED-RECORD INVALID KEY GO TO 
NO-RECORD 

WRITE PROCESSED-RECORD FROM WORK-RECORD INVALID 
KEY GO TO NOT-IN-FILE 


NOTE: When writing records to a CODOS-SA file, the record 
area must be one byte larger than the actual length 
of the data. The system uses this position to store 
a "CR" as the record termination character. 


5.1.5 THE REWRITE STATEMENT 


| The REWRITE statement rewrites a previously-read record 

to the output file. A file must have been opened in I-O mode 
before a REWRITE can be executed for it. The format of this 

statement: is: 


REWRITE record-name [FROM identifier]; 
INVALID KEY imperative-statement 


The INVALID KEY clause is performed when the contents of 
the associated RECORD KEY data item are found invalid. 


For sequential files, the REWRITE statement rewrites the 
last record read. 


For indexed sequential files in sequential access mode 
or with duplicate records, the REWRITE statement rewrites the 
last record read when the record's key field value is equal 
to the RECORD KEY value. | 


If the indexed sequential file has no duplicate records, 
the REWRITE statement rewrites the record whose key field 
value is the same as the RECORD KEY value. 


Once the REWRITE is performed, the logical record 


rewritten may or may not still exist in the logical record 
area for the file. For example: 
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REWRITE MASTER-RECORD INVALID KEY PERFORM NOT-HERE 
eee MASTER-RECORD FROM WORK- ~RECORD INVALID — 
KEY PERFORM NOT-IN-FILE — 


5.1.6 THE DELETE STATEMENT 


The DELETE statement deileves a record from the saecue 
file. A file must have been opened in I-O mode before a > 
DELETE can be performed on it. The format of this statement 
is: | 


DELETE file-name; INVALID KEY imperative-statement 


The INVALID KEY clause is executed when the record 
corresponding to the RECORD KEY value is not found in the 
file, 


For sequential files, the DELETE statement deletes the 
last record read. | | 


For indexed sequential files in sequential access mode 
Or with duplicate records, the DELETE statement deletes the 
last record read if its key field value is equal to the 
RECORD KEY value. 


If the indexed sequential file has no duplicate records, 
the DELETE statement deletes the record whose key field value 
is the same as the RECORD KEY value. For example: 

DELETE MASTER-FILE; INVALID KEY PERFORM NO-RECORD 
DELETE UPDATEO1; INVALID KEY PERFORM NOT-IN-FILE 
a Sg ed THE DISPLAY STATEMENT 


The DISPLAY statement writes data to the screen. The 
format of this statement is: 


@ (row, column) a @ (row, column) | 
DISPLAY identifier-l ) ty identifier-2 /)| ... 


literal-1 _ 7 literal-2 


The @(row,column) clause positions the CRT cursor, where 
row and column are numeric literals or items. If this clause 
1s omitted, a carriage return/line feed pair is sent to the 
display station. 


: When a DISPLAY statement contains more than one operand, 
the specified items and/or literals are displayed 
consecutively with no spaces between them unless specified. 
The line's remaining positions at the end of the data 
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transfer are left unchanged. 


A literal in a DISPLAY statement may be numeric, nonnumeric, 
or a hexadecimal constant as shown in the following example. 


DISPLAY @(3,25), $8085, DATA-1l, S$84F3. 


Refer to Chapter 6 for additional information on CRT control. 


5.1.8 THE ACCEPT STATEMENT 


The ACCEPT statement sends unprotected data from the 
screen into computer memory. The format of this statement 
1S: 


ACCEPT identifier-l [, identifier-2]... 


The identifier must be an unedited or group item. Refer 
to Chapter 6 for additional information on CRT control. For 
example: 


ACCEPT SCREEN-1 | 
ACCEPT IDENTIFICATION-D, TRANSACTIONS-D, TOTAL-D 


5.1.9 THE CLOSE STATEMENT 


The CLOSE statement ends the processing of a file, and 
performs the standard closing procedures on it. The format 
of this statement 1S: | 


CLOSE file-name [WITH DELETE]... 


A file must be opened before it can be closed. Once 
closed, a file may not be referenced again until another OPEN 
statement is performed for it. When the WITH DELETE option 
is specified, all records in the file are deleted. For 
example: | 


CLOSE DISK-FILE > 


CLOSE DISK-FILE WITH DELETE 
CLOSE DISK-FILE, PRINT-FILE 
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5.2 DATA MANIPULATION STATEMENTS 


There are two data nanipolarion statements: MOVE and 
INSPECT, | | i 


5.2.1 THE MOVE STATEMENT 


The MOVE statement transfers data from one area of 
computer storage to another. When the PICTURE clause of the 
receiving item contains editing characters, it also edits 
data by inserting, deleting, or replacing characters as 
specified. | 


The word MOVE is rather misleading since this process 
actually copies the data of the sending field and places this 
copy in one or more receiving field. Thus, the data in the 
sending field is not altered or destroyed by the MOVE | 
statement. The format of this statement is: 


MOVE Jidentifier-1\| TO identifier-2 [, identifier-3]... 
literal | | 


[ON SIZE ERROR imperative-statement] 


| Both source and receiving items can be group or 
elementary. The literal may be numeric, non-numeric, or a 
figurative constant. 


When the ON SIZE ERROR clause is included, its 
- imperative statement is executed whenever significant 
characters are truncated during a MOVE. This feature 
facilitates checking input data for a valid range as shown in 
the following example. | 


| PICTURE of 
Source Field = Receiving Field Received Data 


The manner in which the MOVE is performed depends on the 
PICTURE clauses of the source and receiving items. See Table 
5-1 for a listing of legal and illegal MOVE'sS. There are 
ee permissible moves: alphanumeric, numeric, and 
edite 


Note: A group item, even if it is composed of all numeric 
subfields, is treated as an alphanumeric item by the 
_ MOVE statement. This feature is quite useful for 
printing headers for numeric reports. 
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5.2.2 ALPHANUMERIC MOVES 


In an alphanumeric move, the receiving field is an 
alphabetic, alphanumeric, or group item that stores the data 
left-justified unless otherwise specified. When the 
receiving field is longer than the sending field, the system 
fills the extra positions with spaces. When the receiving 
field is shorter than the sending field, the data characters 
are placed in the receiving field one at a time from left to 
right until the field is filled; the remaining characters are 
truncated. | 


When the figurative constant is ALL any-literal, the 
literal following the word ALL must be enclosed in quotation 
marks and may be only one character in length. | 


PICTURE of 
Source Field Receiving Field Received Data 


alsic|p| X(6) or A(6) BEE 
A]B|C[D X(3) or A(3) BEG 
ATB[C]D] X(4) or A(4) TATB[C|D_ 
ALL 'X' X(5) XX] X]X 1X] 


5.2.3 NUMERIC MOVE 


A numeric move occurs when a numeric field is moved to 
another numeric field, or when an alphanumeric field that 
contains only integers is moved to a numeric field. The 
assumed decimal points of both fields are aligned, and any 
extra positions at either end of the receiving item are 
filled with zeroes. When an item has no decimal point, one 
is assumed to be on the right end. When the receiving field 
is shorter than the source field, the source numeric data is 
stored in the receiving field beginning at the assumed 
decimal point and proceeding outward; when the field is full, 
unstored data is truncated. 


PICTURE of x 
Source Field Receiving Field Received Data 


ERB 99V9 l 
(1[2]3] 4) 9(4) [2 [2 [3 [4] 
BEPAEIC! 9v99 SaPRENCS 


NOTE: In the last example shown, a size error has occurred 
: Since the most Significant Saget 1 was dropped 
during the move. | _ 


TABLE 5-1. Rules for Constructing Arithmetic-Expressions 


Second Symbol _ | : 


First | 
Symbol | Variable - or + unary - 


Variable 
* or / 

- or + 
unary - 
(or 
Begin- 
ning of | 
Expres- P = Pp 
sion) _ P P - - P 


)or End of 
Expression 


ee 
tt 

bales 

tity 1 

an 
| 


rg 
rg 
I 


1 This is permitted when "-" indicates the sign of a 
numeric literal. | 


2 Parentheses immediately following a data-name 
indicate the presence of a subscript. The 
subscript is considered part of the variable. 
P A specified pair of symbols is permitted. 


- A specified pair of symbols is not permitted. 
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5.2.4 DE-EDIT MOVE 


Whenever a MOVE occurs from an alphanumeric field to a 
numeric field, the following actions (called a de-edit) are 
performed. Leading and trailing blanks are deleted from the 
Source data. Any leading positive or negative sign is 
removed and placed at the right of the destination field, 
Both fields are aligned by their assumed decimal points, and 
the data is moved. | 


5.2.5 EDITED MOVE 


When editing is specified by the PICTURE clause of the 
receiving item, the source data is edited during the move 
after decimal point alignment. Data is moved to a receiving 
edited field in accordance with the rules for alphanumeric 
moves. Edited numeric data cannot be moved into a regular 
numeric field. For an explanation of editing symbols ina 
field, see the description of the PICTURE clause in Chapter 
3. | 


5.2.6 THE INSPECT STATEMENT 

The INSPECT statement replaces selected characters in a 
data item with other specified characters. The format of 
this statement is: 


ALL 


INSPECT identifier-1 REPLACING LEADING identifer-2 
| FIRST literal-1 
BY identifier-3 
literal-2 


Identifier-1l must be a group or elementary item whose 
USAGE IS DISPLAY. Remember that if a data item's description 
has no USAGE clause, the compiler assumes that USAGE IS ~~ 
DISPLAY. Identifiers -2 and -3 reference one-byte 
alphabetic, alphanumeric, or numeric elementary items whose 
usage is also display. Literals are non-numeric or any 
figurative constant except ALL. 
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The inspection of the item proceeds from left to right. 
The data item's contents are treated as follows: 


1. An alphanumeric item is treated as a character string. 


2. An unsigned numeric item is treated as if it had been 
been redefined as alphanumeric. 


3. A signed numeric item is treated as if it had been moved 
to an unsigned numeric data item of the same length, and 
is subject to rule 2 shown above. 


The rules for replacing data are as follows: 


1. When literal-1l is a figurative constant, each character 
in identifier-l's field that is equal to it is replaced 
by the single character referenced by literal-2 or | 
identifier-3. | 


2. When literal-2 is a figurative constant, each character 
in identifier-2's field that is equal to literal-1/ 
identifier-2 is replaced by the literal-2 character. 


The words ALL, LEADING, and FIRST qualify the 
replacement process as follows: 


1. ALL replaces every literal- a -2 in 
identifier-l. 


2. If LEADING is used, ibeupakedttenkd eens must be equal 
to the field's leftmost character. Inspection/ 
replacement then proceeds and stops only when a 
a character is encountered that is not the same as 
literal-l/identifier-2. . 


3. FIRST replaces the leftmost character in identifier-1l 
that is equal to literal-l/identifier-2. Inspection/ 
replacement then stops, 

An example of this process appears below. 

Working- Storage: 

77 SS-NUMBER PIC 9(9) VALUE 123456789. 
77 EDITED-SS-NUMBER PIC 999/99/9999., 
Broce duve-oiyacions | 
MOVE SS-NUMBER TO EDITED-SS-NUMBER. 
INSPECT EDITED- Sss- NUMBER REPLACING ALL '/' BY '-'. 


The new value of EDITED-SS-NUMBER is 123-45-6789. 
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5.3 ARITHMETIC STATEMENTS 


Arithmetic operations in COBOL are specified by the key 
words ADD, SUBTRACT, MULTIPLY, DIVIDE, and COMPUTE. Ree the 
COMPUTE statement uses arithmetic symbols (+, -, /, *, and 
=); the other statements use words to convey the arithmetic 
meanings. 


The following general rules apply to all arithmetic 
statements: 


1. All literals are numeric. 


2. All identifiers are numeric elementary items whose 
maximum length is 15 decimal digits. These items 
may have different lengths, since decimal points 
are automatically aligned during the arithmetic 
process, 


3. No item that is used in an arithmetic process may 
contain editing symbols. An item that simply 
stores arithmetic results, however, may contain 
editing symbols. 


4. When the GIVING option is selected, the arithmetic 
result is stored in the identifier following 
GIVING. 


5. The ROUNDED option is used when the arithmetic 
result has more digits to the right of its decimal 
point than does the receiving field. This overflow 
is called excess digits. When the ROUNDED option 
is omitted, excess digits are truncated. When this 
option is included and the most significant excess 
digit is greater than or equal to 5, then the least 
Significant digit of the receiving field is 
increased by l. 


6. A SIZE ERROR occurs when the number of integer 
places in an arithmetic result exceeds the number 
of integer places in the receiving field. When 
this option is included and a size error occurs, 
the value of the resultant item is unchanged, and 
the specified imperative statement is executed. 

An arithmetic statement with a SIZE ERROR option 

is considered to be a conditional statement and is 
prohibited in contexts that allow only imperative 

statements. When-the SIZE ERROR option is omitted 

and a size error occurs, program flow is not 

interrrupted, but the final result may or may not 
be correct, | 
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Dee. GIVING OPTION 


If the GIVING option is ere the value the 
identifier that follows the word GIVING is made equal to the 
careuree result of the arithmetic operation. 


If the GIVING option is ‘not written, each operand 
following the words TO, FROM, BY, and INTO in the ADD, 
SUBTRACT, MULTIPLY, AND DIVIDE statements, respectively, must 
be an identifier (not a literal). Each identifier is used in 
the computation, and also receives the result. 


5.3.2 ROUNDED OPTION 


If the ROUNDED option is not specified, truncation 
occurs when the number of places calculated (after 
decimal-point alignment) for the result is greater than the 
number of places in the data item that is to be set equal to 
the calculated result. When the ROUNDED option is specified, 
the least significant digit of the resultant data-name | 
increases in value by 1 whenever the most significant digit 
of the excess is greater than or equal to 3. 


Rounding of a computed negative result is performed by 
rounding the absolute value of the computed result and then 
making the final result negative. 


Table 5-2 illustrates the relationship between a 


calculated result and the value stored in an item that is to 
receive the calculated result. 


TABLE 5-3. Rounding or Truncation of Calculations 
Item to Receive Calculated Result = | 


a Value After Value After 
PICTURE | Rounding Truncating 


Calculated 
Result 


-12.36 
8.432 
35.6 
65.6 
0.0055 
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5.3.3 SIZE ERROR OPTION 


An arithmetic statement, if written with a SIZE ERROR 
option, is not an imperative-statement. Rather, it is a 
conditional statement and is prohibited in contexts where 
only imperative statements are allowed. 


Whenever the number of integer places in the calculated 
result exceeds the number of integer places specified for the 
resultant item, a size error condition arises. If the SIZE 
ERROR option is specified and a size error condition arises, 
the value of the resultant item is not altered, and the 
series of imperative-statements specified for the condition 
is executed. 7 | 


_ If the SIZE ERROR option is not specified and a size 
error condition arises, no assumption should be made about 
the correctness of the final result even though the program 
flow is not interrupted. 

5.3.4 THE ADD STATEMENT 

- The ADD statement adds the values of two or more numeric 
items and/or literals and stores the result. The ADD 
statement must be written according to the general rules 
listed at the beginning of this section and must also conform 


to the guidelines described in the following paragraphs. The 
formats of this statement are: — 


Format 1: | 
| ADD identifier-l , identifier-2 ..., 
literal-l , lLiteral-2 


identifer-n [ROUNDED] 


[: ON SIZE ERROR imperative-statement ] 
Format 2: 


ADD identifier-l ,| identifier-2;|... TO 
literal-l ,| Literal-2 


identifier-m [ROUNDED] [, identifier-n [ROUNDED]] 


[; ON SIZE ERROR imperative-statement ] 
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Format 3: i o | 
| ~ ADD identifier-l : identifier-2 
- literal-1l literal-2 
, identifier-3 ... GIVING identifier-m [ROUNDED ] 
, Literal-3 | | 


[; ON SIZE ERROR imperative-statement ] 


Format 1 adds che values of all Jdeneifiere/iieercis and 
stores the result in identifier-n. A sample Format 1 
statement is: ADD A, B, C. The values of A, B, and C before 
and after execution are: | | 


A B C 
Before 5 6 8 


‘After 5 6 19 


Note that the values of A and B do not change as a result of 
the addition. | 


Format 2 adds the values of the identifiers/literals 
that precede the word TO. This intermediate result is then 
added to each data item specified by identifier-m, 
identifier-n, etc. to form a final result that is stored in 
identifier-m, identifier-n, etc. A sample Format 2 statement 
is: ADD W, X, Y, TO Z The W, X, Y, and Z values before and 


after execution are: 


ee: ae a wees ww 


W x y Z 
Before 2 7 8 12 


After p i 8 29 


Note that the values of all operands are added to form the 
sum stored in Z. 


Format 3 adds the values of the operands preceding the 
word GIVING and places this immediate result in the 
identifiers that follow the word GIVING. A sample Format 3 
statement is: ADD A, B, C GIVING D. The values of A, B, C, 
and D before and after execution are: | | a 


| A &B Cc D 
Before 1 Q, eS 's 
6 


After | 1 | 2 3 


Note that the intermediate result replaces the value of D and 
is not added to D. | 
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5.3.5 THE SUBTRACT STATEMENT 


: The SUBTRACT statement subtracts the value of one or 
more numeric items/literals from another numeric item/literal 
and stores the result. The formats of this statement are: 


Format 1: 
SUBTRACT identifier-l , identifier-2 er 
literal-1l literal-2 
FROM identifier-m [ROUNDED] 

[: ON SIZE ERROR imperative-statement] 
Format 2: | 
SUBTRACT identifier-l , identifier-2 sei 
| literal-1l , literal-2 


FROM identifier-m GIVING identifier-n 
literal-m 


[ROUNDED] [; ON SIZE ERROR imperative-statement ] 


Format 1 subtracts the operands preceding the word FROM 
from identifier-m and places the result in identifier-m. | 


Format 2 subtracts the operands preceding the word FROM 
identifier-m/literal-m and places the result in the item 
following the word GIVING. The contents of identifier-m are 
not changed by a Format 2 SUBTRACT statement. A sample 
Format 2 statement is: SUBTRACT A FROM B GIVING C. The 
values of the operands before and after execution are: 


A B C 
Before 10 80 —« 90 
After 10 80 70 


5.3.6 THE MULTIPLY STATEMENT 

The MULTIPLY statement multiplies two numeric 
items/literals together and stores the resultant PECeucre 
The formats of this statement are: 


Format l: | ; a | 
MULTIPLY jidentifier-1| BY identifier-2 [ROUNDED] 


literal-l 


[; ON SIZE ERROR imperative-statement ] 
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Format a: | 
“MULTIPLY identifier-1| By fidentifier-2\. 
literal-1 literal-2 
GIVING identifier-3 [ROUNDED] 
| [; ON SIZE ERROR imperative-statement ] 
Format 1 multiplies identifier-1/literal-1l by 
identifier-2 and stores the product in identifier-2. A 


Sample Format 1 MULTIPLY statement is: MULTIPLY A BY B. The 
values of the operands before and after execution are: 


A B 
Before 10 20 
After 10 200 


Note that the values of operand B change to reflect the 
eee eos 


Format 2 multiplies identifier-l/literal-l by 
identifier-2/literal-2 and stores the product in | 
identifier-3. The contents of identifier-l and identifier-2 
are unaffected by the execution of a Format 2 MULTIPLY 
statement. A sample Format 2 statement is: MULTIPLY A BY B 
GIVING C. The values of, the operands before and after 
ec aon are: 


A B C 


Before ie) 10 20 
After 5 


10 50 
Note that the values of operands A and B remain the same, 
while the value of C changes, 
5.3./ THE DIVIDE STATEMENT 

The DIVIDE statement divides the value of one numeric 
item/literal either into or by the value of another numeric 


item/literal and stores the result. The formats of this 
statement are: | 


Format 1: | | | 
DIVIDE identifier-l INTO identifier-2 [ROUNDED] 
| literal-1l 


[; ON SIZE ERROR imperative-statement] 
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Format 2: | | 
DIVIDE identifier-l INTO)/identifier-2 
| literal-1 literal-2 
GIVING identifier-3 [ROUNDED] 
[; ON SIZE ERROR imperative-~-statement ] 
Format 3: | 
DIVIDE identifier-l BY /identifier-2 
literal-1l literal-2 
GIVING identifier-3 [ROUNDED] 
[: ON SIZE ERROR imperative-statement ] 
Format 1 divides identifier-1l/literal-1 into 
identifier-2 and stores the resultant quotient in 
identifier-2. A sample Format 1 DIVIDE statement is: DIVIDE 


A INTO B. The values of the operands before and after 
execution are: 


A —B 
Before 5 }&10 
After 5 2 


Note that the value of B has changed as a result of the 
division since the quotient is stored in it. 


Format 2 divides identifier-l/literal-l into 
identifier-2 and stores the resultant quotient in 
identifier-3. The contents of identifier-l and identifier-2 
are unchanged by a Format 2 DIVIDE statement. A sample 
Format 2 statement is: DIVIDE A INTO B GIVING C. The values 
of the operands before and after execution are: 


A &B C 
Before 5 10 15 
After 5 10 2 


Only the value of C changes as a result of a Format 2 DIVIDE. 


Format 3 divides identifier-l/literal-l by identifier-2 
and stores the result in identifier-3. The values of 
identifier-l and identifier-2 are unchanged by Format 3. A 
sample Format 3 statement is: DIVIDE A BY B GIVING C. The 
values of the operands before and after execution are: 


A B C 


Before 10 5 30 


‘After 10 | 5 2 


only. the value of C. changes in a Format 3 DIVIDE. 


5.3.8 THE COMPUTE STATEMENT 


The COMPUTE statement combines the processing of ADD, 
SUBTRACT, MULTIPLY, and DIVIDE statements by using an 
arithmetic expression and storing the result in one numeric 
item. The format of this Statement is: 


a identifier-2 
COMPUTE identifier-1 [ROUNDED] =( literal-l 
| arithmetic-expression 


[; ON SIZE ERROR imperative-statement ] 


This statement is equivalent to a MOVE statement when 
the literal or identifier-2 is used. 


An apienuetie expression is a series of numeric literals 
and/or data-names separated by arithmetic operators, and is 
reduced to a Single numeric value and stored in a numeric 
item. The arithmetic operators are: 


+ Addition 
- Subtraction 
 * Multiplication 
/ Division ~— 
A space is left on either side of an arithmetic 


Operator. The only exception to this rule occurs when a 
minus sign indicates a logical negation (called a unary 
operator): a space does not have to follow it. 


A few examples of arithmetic expressions are: 


RATE * TIME 
GROSS - DEDUCTIONS 
OVERTIME * 1.5 + REGULAR-TIME 


When parentheses are not used to specify the order of 
computation, the COBOL compiler evaluates an arithmetic 
expression by the following rules: 


1. Logical negations (unary -) are performed first. 
2. Next, multiplication and division are performed. 
3. ;Finally, addition and subtraction are performed. 


In each step, computation proceeds from left to right. 


Thus, A * B / C is computed as od * B) / C and A/B#* Cis 
computed as (a f' B) *-C.e | 
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When parentheses are used, computation begins with the 
innermost set and proceeds to the outermost. Items within 
parentheses are evaluated according to the rules above, and 
the results are then treated as if the parentheses were 
removed. For example: 


COMPUTE RESULT-1 ROUNDED = (A + B) / (C + D+ B£) 
COMPUTE TOTAL-RESULT = -((A - B) / 3 * (1.14 + C)) 


5e4 CONDITIONAL STATEMENTS 


A conditional statement describes one or more conditions 
that are tested to determine the selection of alternate 
action paths. The basic COBOL conditional statement is the 
IF statement. The format of this statement is: 

IF condition [THEN] statement-1l ELSE statement-2 
NEXT SENTENCE NEXT SENTENCE 

When the IF condition is found to be true, the actions 
specified in statement-1 are performed. The ELSE option 
specifies that statement-2 is performed when the condition is 


false. When the ELSE option is omitted, and the IF condition 
is false, program execution proceeds to the next sentence. 


The condition may be compound or simple. Compound 
conditions are formed from a series of simple conditions that 
are separated by the logical operators AND, OR, and NOT. The 
test specified in a simple condition belongs to one of three 
categories: relational, class, and sign. 


5.4.1 RELATIONAL TEST CONDITION 


For numeric or non-numeric items, a relational condition 
compares two items and determines whether or not one is 
greater than, equal to, OL Gee than another. The format of 
this condition is: | 


identifier-1 GREATER THAN identifier-2 
| > | | 

literal-l Is [NOT ]} pe THAN literal-2 

arithmetic- EQUAL TO arithmetic- 

expression-l 7 expression-2 


Numeric items are compared algebraically after decimal 
spOlne alignment. 
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Non-numeric items are sonpared with respect to the 
binary collating sequence of ASCII characters. When such 
items have the same length, the comparison proceeds from 
high-order to the low-order until it encounters either a 
difference between the two items or the end. | 


When the non-numeric items have different lengths, the 
comparison proceeds as described in the previous paragraph. 
If the end of the shorter item is encountered in the 
comparison, the shorter item is considered to be less than 
the longer item unless only spaces remain in the longer. item. 
For example: 


AMOUNT-DUE IS GREATER THAN AMOUNT-OWED 
ENTRY-COUNTER IS EQUAL TO 10 | 
DIVISOR-1 NOT EQUAL TO ZERO © 


5.4.2 CLASS TEST CONDITION 


In a class test, the data-name has a USAGE DISPLAY. If 
_ the USAGE clause had not been specified, the compiler assumes 
that USAGE IS DISPLAY. The format of this test is: 


data-name IS [NOT] NUMERIC 
| ALPHABETIC 


Examples: ; 
NAME-IN IS NOT AT,PHARETTC 


BNZ 2b baad Vw ade bh Bidet Ont om ae ww 


NUMBER-ORDERED IS NOT NUMERIC 
ID-NUMBER NOT NUMERIC 


544.3 SIGN TEST CONDITION 
The sign test determines whether or not the value of a 


numeric item is positive, negative, or zero. The format of 
this test is: 


data-name > | : POSITIVE 
arithmetic-) IS [NOT] NEGATIVE 


expression | ZERO 


Examples: 
AMOUNT-DUE IS POSITIVE 
A - C / D IS NOT NEGATIVE 
NET-PAY ZERO | 


This sign test is the functional equivalent of a 
relational test that determines whether an item is greater 
than, less than, or equal to zero, For example, statements 
GROSS IS NEGATIVE and GROSS IS LESS THAN 0 are equivalent; 
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GROSS IS POSITIVE and GROSS IS GREATER THAN 0 are similarly 
equivalent. 


5.4.4 LOGICAL OPERATORS IN COMPOUND CONDITIONS 

The three logical operators are: AND, OR, and NOT. AND 
and OR are used to create a compound condition when two or 
more tests are specified in the same expression. NOT 
Specifies the negation of a condition. 

In the following AND example: 
IF CODE IS ZERO OR AGE GREATER THAN 21 ADD A TO B. 


OR means that if either or both conditions are fulfilled, the 
ADD C TO D statement is executed. 


The logical operator NOT can be placed either within or 
immediately preceding a simple relational condition. 
Consider the following NOT examples: 


AGE NOT GREATER THAN 21 and NOT AGE GREATER THAN 21 
These two statements mean exactly the same thing to the COBOL 
compiler. However, if NOT precedes a simple relational 
condition that also contains a NOT, a double negative results 
and causeS an error. For example, the statement: 

NOT AGE NOT GREATER THAN 21 


is an invalid condition since it contains a double negative. 


5.4.5 EVALUATION OF THE CONDITION 


The condition is evaluated before any action is taken. 
When the condition is true, statement-l is executed; control 
is transferred to the following sentence; and the ELSE clause 
is ignored. 


When the condition is false, either statement-2 or NEXT 
SENTENCE is executed. NEXT SENTENCE transfers control to the 
succeeding sentence. 


Statement-1 or statement-2 may be a series of statements 
that is terminated by a period or an ELSE clause. 
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(5.4.6 NESTED CONDITIONAL STATEMENTS 


Statements-] and ~2 can be imperative statements that 
may also contain a conditional statement. When a conditional 
Statement is contained in either statement-l, statement-2, or 
both, the conditional statement is said to be nested. 


Nested conditional statements may in turn contain 
conditional statements. These nested conditional statements 
are analogous to the use of parentheses of combining 
subordinate arithmetic expressions so that the expressions 
become part of a larger aritnmeti¢ unit. For example: 


IF A IS EQUAL TO ZERO IF B IS EQUAL TO ZERO 
PERFORM ZERO-VALUES ELSE NEXT SENTENCE 
ELSE PERFORM NON-ZERO-VALUES 


Nested IF statements (IF's within IF's) must be 
considered as paired IF and ELSE combinations, proceeding 
from left to right. Therefore, any encountered ELSE applies 
to the immediately preceding IF that has not already been 
paired with an ELSE. 


In essence, the number of occurrences of ELSE in any 
conditional statement must be equal to the number of 
occurrences of IF, regardless of the complexity caused ey 
nesting. 


The only exception to this rule occurs when ELSE NEXT 
SENTENCE directly precedes the period of the sentence. In 
this case, the entire phrase may be omitted and the period 
Specified at the end of the previous phrase. This rule is 
extended to resulting sentences, etc. The statement in each 
ELSE clause is executed only when the conditional expression 
in the corresponding IF is false. If there are more IF's 
than ELSE's in a statement, it is assumed that the ELSE NEXT 


end of the sentence have been omitted. For example: 


IF TOTAL GREATER THAN LIMIT IF ACTION-CODE EQUAL 
TO EXCEPTION-CODE PERFORM EXCEPTION-ROUTINE 
ELSE PERFORM EXCEEDS LIMIT. 


In another example, the following sentence contains two 
independent nests of conditional statements. The first nest 
ends after the statement PERFORM procedure-name-2. The 
second nest consists of the remainder of the sentence and has 
an implied ELSE NEXT SENTENCE before the period. Each 
upper-case letter corresponds to a conditional expression. 


IF A IF B PERFORM procedure-name-l1 ELSE NEXT SENTENCE. 
ELSE IF C NEXT SENTENCE ELSE PERFORM procedure- name- =2. 
IF D PERFORM procedure-name-3 IF E PERFORM 
procedure- name-4 IF F PERFORM procedure-name-5 ELSE 
PERFORM. PEoceaure-nawen6 ELSE STOP RUN. 
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5.4.7 CONDITIONAL STATEMENTS WITH EXCEPTION BRANCHES 


The READ, WRITE, REWRITE, DELETE, ADD, SUBTRACT, 
MULTIPLY, and DIVIDE verbs specify a required or optional 
exception branch as part of the statement. When the 
exception branch is present, it makes a conditional statement 
out of an otherwise imperative one. The format of an 
exception branch is: 


AT END 
INVALID KEY imperative-statements 
ON SIZE ERROR 


5.5 SEQUENCE CONTROL STATEMENTS 


The starting point for program execution is at the first 
statement of the Procedure Division. When a program contains 
no sequence control statements, control proceeds to 
SuccesSive statements until the end of the paragraph or 
section is reached. Control then passes to the first 
statement in the next paragraph or section and proceeds in 
this manner to the end of the program. 


A sequence control statement, however, alters the normal 
sequence of control. These statements are: 


GO TO - Permanently releases control to the first | 
statement of the paragraph or section to which it 
refers. : 

CALL - Transfers control from one runtime COBOL program 


to another. 


Transfers control to a loadable program written 
in a language other than COBOL. Loadable program 
can return to the next statement by using a RTS 
assembly instruction. | 


UCALL 


Executes the statements of specified paragraphs 
or sections, then returns control to the 
statement that follows the PERFORM statement. 


PERFORM 


IF - Causes control to branch into one of two paths, 
_ depending on the outcome of a conditional test. 
These paths rejoin at the beginning of the next 
sentence unless a GO TO branch is used in one or 
both paths. The IF statement is discussed in 
the Conditional Branch section. 


EXIT Declares the end of a paragraph. 
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STOP RUN 7 Terminates the program in an orderly manner. 


STOP "LIT" ~ Can be ‘seu to display a character string on 
| the display screen. 


5.5.1 THE GO TO STATEMENT 


The GO TO statement conditionally or unconditionally 
transfers control permanently to another point in a Programs 
The formats of this statement ares: 


Format 1: 7 
GO TO procedure-name-1l] 


Format 2: | 
GO TO procedure-name-1l [, procedure-name-2]..., 


-procedure-name-n DEPENDING ON identifier-1 


Format 1 is the unconditional GO TO statement that 
permanently transfers control to another paragraph or section 
that is specified by procedure-name-l. Examples of 
unconditional GO TO statements are shown below. 


GO TO TEST- ROUTINE 


IF A EQUALS B GO TO SINCE- ROUTINE ELSE ADD A TO B 
GO TO START-ROUTINE > | 


Format 2 is the conditional GO TO which is a multiple 
branch point that references a maximum of 16 paragraphs or 
sections. Since the execution of the branch depends on the 
value of the identifier, this item is tested when the 
statement is executed to determine which branch to take. An 
example of a conditional GO TO statement is: 


GO TO FEDERAL-TAX, STATE-TAX, LOCAL-TAX DEPENDING 
ON GROSS-SALARY-CODE. | 


When the conditional GO TO statement is executed, 
control is transferred to procedure—names “1, -2, OY —n, 
depending on whether the identifier's value is l, 2, or n. 
The identifier must be an elementary item of numeric integers 
that can be subscripted if necessary. If identifier's value 
is not within the specified range, no transfer occurs, and 
control passes to the next statement. 
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5.5.2 THE CALL STATEMENT 


The CALL statement transfers control from one runtime 
COBOL program to another. The Linkage Section can be used 
with the CALL since this section is a common area for data 
that the called program can also access. The format of this 
Statement is: 


file-name 
CALL FKEYnn [USING DATA-NAME1...DATA-NAMEZ20 ] 
SKEYnn 


File-name represents a COBOL compiler-generated loadable 
file, FKEYnn and SKEYnn are loadable program files whose 
name asSigns them to a function or shift-function key, 
respectively: nn is 01 to 16 for function keys, or 03 to 16 
for shift function keys. 


The program in which the CALL statement appears is the 
calling program; the program whose name is specified in the 
CALL statement is the called program. The execution of a 
CALL statement transfers control to the called program. 
Control is only returned to the calling program by a 
subsequent call, and execution begins at the top of the 
recalled program. — 7 , 


5.5.3 THE UCALL STATEMENT 


- The UCALL statement allows the user to include at 
runtime subroutines written in a language other than COBOL. 
The format of this statement is: 


UCALL filename [(m) USING data-name-1, data-name-2,... 
data-name-20]. 


File-name represents a loadable program-file with a .LO 
suffix. Optionally, n represents the entry point parameter 
(0-9) to be passed in the A-register. Data-name-] thru 
data-name-20 represents the data items to be referenced by 
the called program. A pointer to this list of addresses will 
be passed in the X-register. 
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To create a loadable program file, first create a 
relocatable object program by assembling the user program, 
using the REL (relocatable program) option discussed in the 
Assembly Language Manual, as shown in the following example. 


TTL USERPROG 
| OPT REL 
START © LDX #$6600 — 


RTS 
END START 


CMAP  ##$USERPROG;0=USERPROG.RO 


Next, compile the COBOL program containing the UCALL 
statement. At the end of the COBOL compilation, the compiler 
prints/displays all necessary load information as shown in 
the following example. 


PROCEDURE DIVISION 


UCALL USERPROG USING DATA1,DATA2. 


SIZE: PROG 0100 DATA 0050 
LOAD UCALL OBJ. ABOVE HEX. LOC. 6850 
MAX. UCALL OBJ. IS HEX. 77B0 


Finally, an RLOAD activity can be used to put the user 
program in a loadable format. The user program can be loaded 
anywhere above location $6850 in the example. The following 
RLOAD activity shows how this can be accomplished. 


~RLOAD 

IF=XX.1F 
BASE=$6851 
LOAD=USERPROG. RO 
OBJA=USERPROG.LO 
MO=#LP 

MAPF 

EXIT 


OY Vy vv vy ii 


After the RLOAD activity has been successfully 
completed, the COBOL program can be run and the subsequent 
UCALL to the user program will be performed. , 
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During runtime, the execution of a UCALL statement 
transfers control to the called user program. An RTS 
instruction returns control to the statement following the 
UCALL statement. The called user program may not exceed 
available memory locations. 


5.5.4 THE PERFORM STATEMENT 


The PERFORM statement executes all statements in one or 
more Specified paragraphs or sections for a specified number 
of times or until a condition is satisfied. When a PERFORM 
Statement has finished execution, program control returns to 
the statement that follows the PERFORM statement. The 
formats of this statement are: 


Format 1: 
PERFORM procedure-name-l1 [THRU procedure-name-2] 


Format 2: | 
PERFORM procedure-name-l [THRU procedure-name-2] 


identifier TIMES 
integer 


Format 3: | | 
PERFORM procedure-name-1l [THRU procedure-name-2] 


UNTIL condition 


Format 4: : | 
PERFORM procedure-name-1 [THRU procedure-name-2] 


VARYING. index-name-1 FROM index-name-2| 
identifier-1l { identifier-2 
literal-l 


BY j/identifier-3| UNTIL condition-l 
literal-2 


literal-3 identifier-5 


AFTER oe) FROM index-name-5 
literal-4 


BY /)identifier-6 UNTIL condition-2 
literal-5 


| AFTER index-name-7 FROM index-name-8 
identifier-7 identifier-8 

literal-6 
BY identifier-9 UNTIL condition-3) 
\literal-7 | J 
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Normal program sequence resumes after the last statement 
of the last specified paragraph or section has been executed, 
The last statement performed, however, must not be an 
unconditional GO TO statement. 


When procedure- name- -2 is included in any PERFORM founae 
it must follow procedure-name-1 in the normal logical 
sequence of the program. GO TO statements and other PERFORM 
statements are permitted between procedure-name-l1 and the 
last statement of procedure-name-2 provided that the sequence 
ultimately returns to the final statement of 
procedure-name-2, For example: 


PERFORM BONUS-CALCULATION 
PERFORM BONUS-CALCULATION THRU PRINT-LINE 


If a conditional branch is required before the final 
sentence, procedure-name-2 must be the name of a paragraph 
consisting solely of the EXIT statement; all paths must 
eventually lead to this point. For example: 


PERFORM ERROR-IN-DATA THRU ERROR-IN-DATA-EXIT. 
PERFORM DATA-UPDATE THRU DATA-UPDATE-EXIT. 


When a sequence of statements executed by a PERFORM 
statement includes another PERFORM statement, the sequence of 
procedures associated with them including the PERFORM must be 
either totally included in, or totally excluded from, the 
logical sequence referred to by the first PERFORM. Thus, an 


active PERFORM statement ‘whose execution point begins within 
the randqe of another PERFORM must not contain within its 


wo bE Nw dn WH sy Ww wads Wo dn de dual do Ue WW Oh Oo 


range the exit point of the other active PERFORM statement. 


The TIMES option in Format 2 executes the procedures a 
specified number of times. A counter is set up with a value 
equal to the value of the identifier or integer. Before each 
execution of the specified procedure, this counter is tested 
for a negative or zero value. If the counter's value is 
positive, the procedure is executed, and the value of the 
counter is decreased by one. When the value is negative or 
zero, the procedure has been executed the correct number of 
times, and control transfers to the statement following the 
PERFORM statement. For example: | 


PERFORM COUNTER-ROUTINE 100 TIMES 


The UNTIL option in Format 3 states that the aunpee of 
times the procedures are executed depends on the fulfillment 
of a simple or compound condition that is evaluated before 
the procedures are executed. When the condition is found to 
be false, the procedure is executed, and the expression is 
evaluated again. This process is repeated until the 
expression is found to be true; control then transfers to the 
statement following the PERFORM statement. If the 
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conditional expression is found to be true when the PERFORM 
statement is first encountered, the specified BROgcaune is 
not executed. For example: 


PERFORM COUNTER-ROUTINE UNTIL ITEM-COUNTER 
GREATER THAN 101 


The VARYING option in Format 4 executes the PERFORM 
repeatedly while increasing or descreaSing the value of one 
to three identifiers or index-names once for each execution 
until a conditional is satisfied. For example: 


PERFORM TABLE-SEARCH VARYING SUB-1 FROM 1 BY l 
UNTIL TRANS-CODE = ITEM-CODE (SUB-1) 


The flow charts in Figure 5-1 illustrate the logic of 
the PERFORM statement when one, two, or three identifiers are 
varied. | 


For example, assume that a billing procedure uses a 
three-dimensional rate table. This table has rates for five 
regions, each of which includes ten states, each of which 
contains rates for twelve cities. The basic updating 
- procedure for this table could be: | | 


RATE-UPDATING. 
MULTIPLY RATE (REGION, STATE, CITY) BY 
ADJUST-FACTOR GIVING RATE (REGION, STATE, CITY). 


To execute this procedure once for each city of each state in 
each region, the following PERFORM statement could be used: 


PERFORM RATE-UPDATING VARYING REGION FROM 1 BY 1 
UNTIL REGION IS GREATER THAN 5 AFTER STATE FROM 1 
BY 1 UNTIL STATE EQUALS 11 AFTER CITY FROM 1 BY 1 
UNTIL CITY IS GREATER THAN 12. 


When this PERFORM is executed at object time, the 
RATE-UPDATING procedure is executed for the first city of the 
first state in the first region, then for the next city, etc. 
The PERFORM is complete when the procedure is executed for 
the twelfth city of the tenth state of the fifth region, by 
which time the procedure has been executed 600 times. 
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5.5.5 THE EXIT STATEMENT _ 


The EXIT statement ends a procedure that is executed by 
a PERFORM statement. The format of this statement is: 


_ paragraph-name. EXIT 
EXIT must be the paragraph's only statement, and is 
equivalent to a paragraph with no sentences. This statement 
generates no code. For example: 

TABLE-LOOK-UP-EXIT. EXIT. 

NON-NUMERIC-DATA-EXIT. EXIT. 
5.5.6 THE STOP STATEMENT 


The format of the STOP statement is: 


STOP literal 
-\ RUN 


STOP RUN terminates the program; STOP "literal" displays the 
literal and then continues with program execution. | 
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Figure 5-1 PERFORM Statement (VARYING Option) 
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5.6 TABLE- HANDLING STATEMENTS 


A table is defined in the werkinue Storage Section of the 
Data Division through the use of the OCCURS and REDEFINES > 
clauses. The values of a table may be loaded ‘through the 
VALUE clause, Or they may be posses iia ad a. progeon _ 
subroutine, | 


The sores: of a table may be accessed ECpeughe ene: 
subscripting or indexing. Indexing is a technique similar to 
subscripting, but has the advantage that it contains a direct 
pointer to an individual element in a table rather than an 
occurrence number. There are two statements used in indexing 
a table: SET and SEARCH. 


5.6.1 SUBSCRIPTING A TABLE 


A subscript must be aSSigned a dataname that represents 
a numeric elementary item in the Working- Storage Section. 
When used in a statement to refer to an entry in the table, 
the format is: | 


data-name (subscript) 


where data-name is the name of the redefined table, and the 
Subscript has a numeric value that represents a specific 
table entry. A subscript represents an occurrence value. 


a sample table is defined by the Data 


O01 PARTS-TABLE VALUES. 
05 FILLER PIC 9(5) VALUE 53925. 
05 FILLER PIC 9(5) VALUE 29383. 
05 FILLER PIC 9(5) VALUE 49582. 
05 FILLER PIC 9(5) VALUE 39049. 
O01 PARTS~TABLE REDEFINES PARTS-TABLE-VALUES. 
05 PART-NUMBER PIC 9(5) OCCURS 4 TIMES. 


The subscript that will be used to locate eis entries 
is defined as: 


77 SUB-1 PIC 9 VALUE ZERO. 


To find a particular table entry for a sample , 
transaction code, the following statements could be used. 


MOVE TRANS-CODE TO SUB-1 ON SIZE ERROR PERFORM 


ERRONEOUS-CODE. 
MOVE PART-NUMBER (SUB-1) TO PART- NUMBER-OUT. 


Page 5-36 


For tables whose codes do not run consecutively from l, 
2, 3, etc., the following statements would locate entries. 


PERFORM TABLE-SEARCH VARYING SUB-1 FROM 1 BY 1 
UNTIL TRANS-CODE IS EQUAL TO TABLE-ENTRY-CODE 
OR SUB-1 IS GREATER THAN TABLE-LENGTH. 


TABLE-SEARCH. 
IF TRANS-CODE EQUAL TO TABLE-ENTRY-CODE MOVE 
TABLE-~ENTRY-VALUE (SUB-1) TO VALUE-OUT. 


5.6.2 INDEXING A TABLE 


The difference between subscripting a table and indexing 
a table is that a subscript represents an occurrence number 
while an index stands for a displacement value from the start 
of the table. Generally, indexed produce a more efficient 
object code than do subscripts, since they don't have to be 
converted into displacement values to refer to table entries. 
The general format that is used to refer to an indexed table 
entry is: 


data- ~name - (index- name ) 


where the index-name must conform to the rules for it that 
are mentioned in the SET and SEARCH statements. 


5.6.3 THE SET STATEMENT 


The SET statement establishes table-handling reference 
points by setting index-names associated with table elements. 
An index-name must always be SET to an appropriate value 
before the first execution of a SEARCH statement. The 
formats of this statement are: 


Format 1: 
| | index-name-2 
SET /index-name-1 TO ( data-name-2 
| data-name-1 literal 


Format 2: 
SET index-name |UP BY data-name 
| -)DOWN BY/ \literal 


An index name is defined in a table's INDEXED BY clause. 
Format 1 data-names are either data items or numeric 
elementary items that contain only integers. The data-name 
Format 2 must not be an index data item. Literals must be 
poe integers. 
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In Format me the following actions occur: 


1. When index-name-1 is chosen, it is set to a value that 
corresponds to the same occurrence number to which | 
either index-name-2, data~name-2, or literal 
corresponds. If data-name-2 is an index data item, or 
if index-name-2 is related to the same table as index- 
name-1, no conversion takes place. 


2. When data-name-l is chosen, and it is an index data 
item, it may be set equal to either the contents of 
index-name-2 or data-name-2 where the latter is also an 
index data item; literal cannot be used. 


3. If data-name-l is chosen, and it is not an index data 
item, it may be set only to an occurrence number that 
corresponds to the value of index-name-2; neither data- 
name-2 nor literal can be used, 


In Format 2, the value of index-name is incremented (UP 
BY) or decremented (DOWN BY) by a value that corresponds to. 
the number of occurrences specified by the value of literal 
Or identifier. For example: 


SET ITEM-INDEX TO 1] 


SET RATE-INDEX UP BY 1] 
SET TABLE-INDEX DOWN BY l 


5.6.4 THE SEARCH STATEMENT 

The SEARCH statement searches a table for a table 
element that satisfies the specified condition and adjusts 
the associated index-name to indicate that table element. 


The format of this statement is: 


SEARCH identifier-1 VARYING | index-name-1 
\identifier-2 


[; AT END imperative-statement-1] 


; WHEN condition-1 fimperative-statement-2\ 
| | NEXT SENTENCE 


[; WHEN condition-2 imperative- ~statement-3 
| NEXT SENTENCE 


Data-name- 1 may not be subscripted or indexed, and its 
data description must contain OCCURS and INDEXED BY clauses. 


Data-name-2, when specified, must have a USAGE IS INDEX 
clause in its data description, or must represent a numeric 
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elementary item that contains only integers. It is 
incremented by the same amount and at the same time as the 
occurrence number ESPncecures by the index-name of 
data-name-1l. 


When the SEARCH statement is executed, a serial search 
occurs that starts with the current index setting and follows 
one of the procedures described below. 


When the index-name contains a value that is less than 
the highest permissible occurrence number for: data-name-l, 
the specified conditions are evaluated sequentially as 
written, making use of any specified index settings to 
determine the occurrence of items to be tested. When no 
condition is satisfied, the index-name is incremented to 
reference the next occurrence. This process is repeated. 


When the index-name contains a value that is greater 
than the highest permissible occurrence number for 
data-name-1, the SEARCH is immediately terminated. When the 
AT END clause is included, imperative-statement-l is 
executed; otherwise, control passes to the next sentence. 


When one of the conditions is satisfied, the search 
immediately terminates, and the specified imperative 
statement is executed. The index-name remains set at the 
occurrence that caused the condition to be satisfied. 


When a specified imperative statement is executed that 
does not include a GO TO statement, program control passes to 
the next sentence. 


In the VARYING option, the index-name is only used if it 
appears in the table's INDEXED BY clause; otherwise, the 
first index-name in the INDEXED BY clause is used. If the 
index-name appears in the INDEXED BY clause of another table, 
the occurrence number represented by the index-name is 
incremented by the same amount and at the same time as the 
occurrence number represented by the index-name associated 
with data-name-l. 


If data-name-1l is in a hierarchy of groups, each group's 

description must have an OCCURS clause and an index-name. 
The settings of these index-names are used throughout the 
execution of the SEARCH statement to refer to data-name-1l or 
items therein. These index settings are not modified by the 
execution of the SEARCH statement (unless stated as the 
index-name); only the index-name or data-name-2 associated 
with data-name-] is incremented by the SEARCH. A diagram of 
_ @ SEARCH operation conrexnng | two WHEN phrases is shown in 

Figure 5-2. 
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“7 Setting: Highest 
Permissable Occur- 
rence Number? 


AT END *- 
Imperative 
Statement-1 


Imperative 
Statement-2 


Condition-1? 


Imperative 
Statement-3 


Condition-2:% 


| Increment Index-name for 
Identifier-1 (Index-name-1 
if applicable. ) 


Increment Index-name-2 
for a different table or 
Identifier-2_ 


* These operations are only included if called for in the 
Statement. , 


** Each of these operations transfers control to the next sentence 
unless the statement ends with a GO TO statement. 


Figure 5-2 
SEARCH Statement Operation 
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5.7 COPY STATEMENTS 


The COPY statement incorporates source text obtained 
from files external to the COBOL source program. 


The COPY may be written in any of the following places 
in a COBOL program. 


1. In the Environment Division 
SOURCE-COMPUTER. Copy-statement. 
OBJECT-COMPUTER. Copy-statement. 
FILE-CONTROL. Copy-statement. 
I-O CONTROL. Copy-statement. 


2. In the Data Division 
FILE SECTION. 
FD file-name copy-statement. 
01 data-name copy-statement. 
WORKING-STORAGE SECTION. 
01 data-name copy-statement. 


3. In the Procedure Division 
paragraph-name | copy statement. 
section-name SECTION 


| Source text, composed of either one paragraph or one 
section, iS is stored as a file on some storage medium, such 
aS disk or diskette. The specified file is copied during 
compilation, and the result is the same as if the routine 
were actually a part of the source program. The COPY 
statement will copy source text into any part of a program 
after the Environment Division; the text can be anywhere from 
one line to an entire paragraph. The format of this COPY 
statement is: | 


COPY file-name. 


When the source text is composed of one paragraph, it is 
copied into the source program in place of the COPY 
statement, with the procedure-name of the routine. 


When the source text is composed of one section, it is 
copied into the source program in place of the COPY section, 
with the section-name of the COPY section automatically 
replacing the section-name of the section being copied. 


Examples of the COPY statement are shown below. 
FD MASTER-FILE COPY FILEA. 
FILEA is the file-name of the file that contains a 
complete File Description entry to be copied into the 


source program as the description of the file named 
MASTER-FILE. | 
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01 SUM-DATA COPY SUMMARY-A. 


SUMMARY-A is the name of a file whose contents is a record 
description entry of the form: 


02 COUNT PIC 9(3). 
02 G-TOTAL — PIC 9(5)V99. 
02 O0-TOTAL PIC 9(6)V99. 


02 G-DEVIATION PIC 9(4)V99. 
02 O-DEVIATION PIC 9(4)V99. 


The data description copied into the source program in place 
of the line bearing the COPY clause is: 


Ol SUM-DATA. 


02 COUNT PIC 9(3). 

02 G-TOTAL PIC 9(5)V99. 
02 O-TOTAL PIC 9(6)V99. 
02 G-DEVIATION PIC 9(4)V99. 
02 O-DEVIATION PIC 9(4)V99. 
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CHAPTER 6 - GUIDE TO WRITING COBOL CRT TRANSACTIONS 


This chapter describes the COBOL CRT screen I/O support. 
The FORMS Design Facility (FORMS), however, provides a more 
simplified and more powerful logical screen access method. 


FORMS allows the programmer to interactively create and 
modify screen formats for data entry and validation 
applications. FORMS allows the operator to view on the. 
screen both prompting menus and the format being created. 


Facilities are available to generate COBOL data 
definition structures from the format. These structures are 
suitable for copying into a COBOL epPrTcetrone program that 
wants to reference that format. 


The FORMS Access Facility (CFORMS) allows the COBOL user 
to handle screen input and output operations at field or 
entire format levels. CFORMS maintains storage areas for the 
actual formats, decreasing the COBOL program storage 
requirements for format storage and field edit coding. 


6.1 WRITING A CRT FORMAT 


A screen format is set up in the Working-Storage Section 
as described in Chapter 4. A sample screen description 
appears below. 


O01 SCREEN-1 LINE IS NEXT PAGE. 
02 FILLER PIC X(5) LINE 3 COLUMN 3 VALUE 'NAME'. 
02 FILLER PIC X(15) COLUMN 9 VALUE SPACE. 
02 FILLER PIC X(7) LINE 5, COLUMN 3; VALUE 'ADDRESS' 
02 FILLER PIC X(20) VALUE. SPACE. 


LINE IS NEXT PAGE clears the screen and protects all 
positions. 


LINE 3 COLUMN 3 VALUE 'NAME' displays the word NAME on 
line 3 at column 3. No data should ever be placed in column 
1, which contains screen control codes. 


COLUMN 9 moves the cursor's position to column 9, but 
stays on line 3 since a new line had not been stated. At > 
least one column should separate screen items for the storage 
of internally-generated screen control codes. When the VALUE 
clause contains a figurative constant, such as SPACE or ZERO, 
a field is created that is the size of the PICTURE. This 
field is unprotected, underscored, and accepts data when 
displayed on the screen. 


LINE 5 COLUMN 3 displays the word ADDRESS where 
specified. 
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The X(20) VALUE SPACE entry creates an unprotected, | 
underlined field that is 20 characters long. Since there is 
no column clause in this entry, the compiler generates one 
space automatically between. the word ADDRESS and the 
pegennred of this field. 


6.2 SENDING DATA TO THE SCREEN 


The Procedure Division statement, DISPLAY SCREEN-1, 
results in the following display. 


NAME 


ADDRESS 


6.3 RECEIVING DATA FROM THE SCREEN 


A screen-response record is written in the 
Working-Storage Section to accommodate the data entered in 
unprotected fields on the screen. A response record for the 
~SCREEN-1 display would be: | | 


Ol RESPONSE. 
02 RNAME PIC X(15). 
02 RADDRESS PIC X(20). 


When the SEND PAGE key is pressed at transaction time, 
Procedure Division statement ACCEPT RESPONSE moves data 


e 
om the NAME and ADDRESS fields to RNAME and RADDRESS. 


Page 6-02 


6.4 WRITING ERROR INDICATIONS 


The following technique causes a field to blink and 
reverse video when erroneous data has been detected during 
editing tests described later in this chapter. 


(Working-Storage) 
77 X PIC 9. 
O01 ERR-ROW. 
-  Q2 FILLER PIC 99 VALUE 3. 
02 ;>FILLER PIC 99 VALUE 5. 
O01 ROW REDEFINES ERR-ROW PIC 99 OCCURS 2 TIMES. 
Ol ERR-COL. | 
02 FILLER PIC 99 VALUE 15. 
| 02 FILLER PIC 99 VALUE 10. 
01 COL REDEFINES ERR-COL PIC 99 OCCURS 2 TIMES. 


(Procedure Division) 
MOVE 2 TO X. 
PERFORM ERR-BLANK THRU ERR-BLINK-EDIT. 


@ 


ERR-BLINK. | 
DISPLAY @(ROW(X) , COL(X)) SEQOE2. 
ERR-BLINK-EDIT. EXIT. | 


When the program is checking the data entered in 
RADDRESS and an error is discovered, the Procedure Division 
instructions shown above would be performed. The 
Working-Storage tables would be used for determining the 
field location. 


The statement MOVE 2 TO X means that the error is in the 
second data field. The @(ROW(X) ,COL(X)) phrase establishes 
the line and column location on the screen, using subscripts 
and the tables. 


A single dollar sign ($) precedes any of the screen 
control codes. EO sets the blink condition, and E2 sets the 
reverse video condition. A complete list of screen control 
codes is provided in Appendix B. 


The following Procedure Division statements clear the 
blink and reverse video condition. 


MOVE 2 TO X. 
PERFORM ERR-OFF THRU ERR-OFF-EXIT. 


e 


ERR-OFF. 
DISPLAY @(ROW(X) ,COL(X)) SEI1E3. 
_BRR-OFF-EXIT. EXIT, 
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| E1 clears the Brink eonaaeien: and E3 turns off the 
reverse video. 


The eoiowine is an example of a situation in which some 
data are always the same, such as titles, and other data are 
variable upon input from another source. 


WORKING-STORAGE SECTION. 
01 #DATA-RECORD. 
02 PART-NUMBER PIC X(4). 


02 DESC PIC X(16). 

02 LOCATION PIC 999, 

02 QTY-ON-HAND PIC 9(4).. 

02 COST PIC 9999V99. 
01 SCREEN-2 LINE IS NEXT PAGE. 

02 FILLER PIC X(1l) LINE 4 COLUMN 2; 

| VALUE 'DESCRIPTION'. 
02 DESC PIC X(16) VALUE ' ', 
02 FILLER PIC X(8) LINE 6 COLUMN 2; 
| | VALUE 'LOCATION'. 
02 SLOC PIC 229 COLUMN 26; VALUE ' ‘. 
02 FILLER PIC X(8) LINE 8, COLUMN 2; 
VALUE ‘OUANTITY'', 
02 SQTY PIC 229 VALUE ' '. 
02 FILLER PIC X(4) COLUMN 50; 
| VALUE ‘COST’. 

02 SCOST | PIC 222.99 COLUMN 46 VALUE 'X'. 

The VALUE ' for ay: SLOC, SQTY, and SCOST makes them 
protected fields, so that their data cannot be changed on the 
screen, | 


The following instructions can be used with DATA-RECORD 
and SCREEN-2 to read disk file data and move it to the 
screen, 


OPEN DATAFILE. | 

READ DATAFILE INTO DATA-RECORD. 
MOVE DESC TO SDESC. 

MOVE LOCATION TO SLOC. 

MOVE QTY-ON-HAND TO SQTY. 

MOVE COST TO SCOST. 

DISPLAY SCREEN-2. 


When these statements are executed, data is read from 
DATAFILE into DATA-RECORD. Each data item in DATA-RECORD is 
moved separately to its corresponding data item in SCREEN-2, 
which is then displayed on the CRT. All fields in SCREEN-2 
are protected, which means that none of them can be changed 
through the keyboard. 
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6.5 SCREEN MESSAGES 
The following statement sends a message to the screen, 
DISPLAY @(24,3) SEOEAC4 ‘INVALID ENTRY' SEl. 


This message begins on line 24, column 3. Screen control 
code EO sets the blink code, while EA protects the field. 


NOTE: When a screen control code is used on an unprotected 
field, EA should follow the code to protect the 
field, unless it is meant to be unprotected. 


The C4 code moves the cursor to the next position. If 
this code had been omitted, the I of INVALID ENTRY would 
overlay the EO and EA codes. The final El code clears the 
blinking condition so that the rest of the line remains 
protected and does not blink. 


CAUTION: Never start a message on column 1 Since this 
position contains the protected line code. 
Placing data in column 1] overlays this code, and 
the entire line would be unprotected and returned 
as data when an ACCEPT command was executed. 
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6. 6 ‘EDITING DATA FIELDS 


Unprotected fields on the screen neeepE: any Papa. 
therefore the program must edit the data that is read into 
memory to ensure that the correct type of data has been 
entered, Tests such aS ON SIZE ERROR, IF NUMERIC, IF | 
ALPHABETIC, IF NEGATIVE, etc., can be performed as explained 
in the Conditional Statement section in Chapter 5 and | 
illustrated in the following program extract. 


WORKING-~STORAGE SECTION. 


77 E-NAME PIC A(10). 
77 E-QTY PIC S9(4). 
77 E-PRICE PIC S999V99. 


77. ERROR-FLAG PIC 9 VALUE ZERO. 
01 SCREEN-3 LINE IS NEXT PAGE, : 
02 FILLER PIC X(4) LINE 2, COLUMN 2 VALUE 'NAME'., 
02 S-NAME PIC X(10) VALUE SPACE. 
02 FILLER PIC X(8) LINE 4 COLUMN 2. 
VALUE 'QUANTITY'. 
02 S-QTY PIC X(4) COLUMN 12 VALUE SPACES. 
02 FILLER PIC X(5) COLUMN 50 VALUE 'PRICE'. 
02 S-PRICE PIC X(5) VALUE SPACE. 
01 SCREEN-IN. 
02 I-NAME PIC X(10). 
02 I-QTY PIC X(4). 
02 I-PRICE PIC X(5). 
01 CLEAR-BLINK. | 
02 FILLER PIC X LINE 2 COLUMN 6 VAL 
A LNT AAKRT 1 A 


02 PITT ER PTC Vv TrTME 
& La hLILIIN f dw 42 43 LIV LI 


? PROCEDURE DIVISION. 


START, 
‘DISPLAY SCREEN-3. 
GET-SCREEN. 
ACCEPT SCREEN-IN. 
PERFORM BLINK-OFF. 
MOVE I-NAME TO E-NAME. 
IF I-NAME EQUAL SPACES PERFORM NAME-ERR 
GO TO EDIT-QTY. 
IF E-NAME NOT ALPHABETIC PERFORM NAME-ERR. 
EDIT-OTY. 
MOVE I-QTY TO E-QTY ON SIZE ERROR PERFORM QTY-ERR 
GO TO EDIT-PRICE. 
IF E-QTY IS NOT NUMERIC PERFORM QTY-ERR 
GO TO EDIT-PRICE. | 
IF E-QTY IS NEGATIVE PERFORM QTY-ERR 
GO TO EDIT-PRICE. 
IF E-QTY IS GREATER THAN 10 PERFORM QTY-ERR. 
EDIT-PRICE. 
MOVE I-PRICE TO E-PRICE ON SIZE ERROR 
PERFORM PRICE-ERR GO TO CHECK-MORE. 
IF E-PRICE IS NOT NUMERIC PERFORM PRICE-ERR 
GO TO CHECK-MORE. | 
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IF E-PRICE IS NEGATIVE. PERFORM PRICE-ERR. 
CHECK-MORE. 
IF ERROR-FLAG = 1 
DISPLAY @(2,24) SE2EAC4 ‘INVALID ENTRY' SEA 
GO TO GET-SCREEN. 
NAME-ERR. | 
DISPLAY @(2,6) SEO. 
MOVE 1 TO ERROR-FLAG. 
NAME-ERR-EXIT. EXIT. 
QOTY-ERR. 
DISPLAY @(4,10) SEO. 
MOVE 1 TO ERROR-FLAG. 
QTY-ERR-EXIT. EXIT. 
PRICE-ERR. 
DISPLAY @(4,55) SEO. 
MOVE 1 TO ERROR-FLAG. 
PRICE-ERR-EXIT. EXIT. 
BLINK-OFF. 
DISPLAY CLEAR-BLINK. 
MOVE ZERO TO ERROR-FLAG. 
BLINK-OFF-EXIT. EXIT. 


In this program, the NAME field must not be blank and 
must have only alphabetic characters. The QUANTITY field |. 
must have only positive numeric integers that are not greater 
than 10. 


The PRICE field must have only positive numeric 
Characters that have no more than 3 positions to the left of 
the decimal point and no more than 2 decimal positions to the 
right of it. | 


The ON SIZE ERROR is usually included with a move in 
which the receiving field is defined as decimal or decimal 
with an implied decimal point. 


NOTE: The blink clear code in CLEAR-BLINK was placed one 
column before the start of the field since screen 
control codes are always stored there. 


The following technique can be used to set up a date 
with slash separators. 


(Data Division) 
01 DATE-PRINT PIC 22/22/22. 
(Procedure Division) 
_ MOVE DATE TO DATE-PRINT. 


A display of DATE-PRINT after the MOVE would print the system 


date. If the system date contained zeroes, DATE-PRINT would 
contain only blanks. 
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6.7 WRITING TO THE PRINTER 
| The following program extract shows how data is printed. 


(Environment Division) 
| FILE-CONTROL. 
SELECT PRIFILE ASSIGN TO PRINTER. 


(pata Division) 
FILE SECTION. 
FD PRTFILE. LINAGE IS 60. TOP IS 6 BOTTOM IS 0 
DATA RECORD IS PRINT-REC. 

O01 PRINT-REC PIC X(132). 

WORKING-STORAGE SECTION. 

O01 HEAD-LINE PIC X(80). 

O01 DETAIL-1 PIC X(80). 

Ol DETAIL-2 PIC X(80). 


(Procedure Division) 
| OPEN OUTPUT PRTFILE. 
PRINT-LOOP. 
IF LINAGE-COUNTER EQUAL ZERO 
WRITE PRINT-REC FROM HEAD-LINE 
WRITE-PRINT-REC FROM DETAIL-1 
AFTER ADVANCING 1] LINE. 
WRITE PRINT-REC FROM DETAIL~2 
AFTER ADVANCING 2 LINES. - 
IF BREAK-KEY = 'Y' GO TO END-JOB. 
GO TO PRINT-LOOP. | 


The automatic top of page function is performed in the 
example shown above when LINAGE-COUNTER reaches 60 Since 
LINAGE was defined as 60. 


Another method of handling top-of-page is using the 
WRITE AFTER ADVANCING PAGE statement before the 
LINAGE-COUNTER reaches itS maximum. The use of AFTER 
ADVANCING and BEFORE ADVANCING in the same program is not 
recommended. 


The BREAK-KEY command determines whether or not the 

_ BREAK-KEY has been activated. If it has, appropriate actions 
are taken such as doing a wrap-up and terminating the 

program. | 


NOTE: If while biving to print data from the screen the 


printer deselects, check to see that you nave 
entered the proper data. | 
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CHAPTER 7 - FILE MANAGEMENT 


The Codex File Management System (CFMS) supports 
sequential, indexed sequential files, and CODOS-SA sequential 
files, CFMS commands create and list these files; CODOS 
utility programs initialize and format data diskettes as well 
as provide backup and recovery capabilities. CODOS-SA files 
may be created directly by a COBOL program without using the 
CFMS utility program. | 


A maximum of 160 files are allowed per CFMS data 
diskette. Each file is designated by an 8-character name 
that is followed by a .DF (for data file) suffix or .SA (for 
CODOS-SA file). Space is allocated for a file on a data 
diskette one cluster (512 bytes) at a time as needed. CFMS 
files may also be stored on any system diskette, and a user 
may have files open on several diskettes simultaneously. 


7.1 FILE ORGANIZATION 


There are three types of file organization: sequential, 
indexed, and CODOS-SA. 


7.1.1 SEQUENTIAL FILE ORGANIZATION 


A sequential file is one whose records are organized in 
a consecutive manner. There is no identifying key associated 
with each record; therefore, records can be accessed only 
sequentially. Sequential files may be asSigned to any type 
of input/output device. Sequential file organization is 
indicated in a COBOL program when the ORGANIZATION IS 
SEQUENTIAL clause is written in the Environment Division, or 
when the ORGANIZATION clause is omitted. 


7.1.2 INDEXED FILE ORGANIZATION 


Indexed files are those in which each record is. 
associated with an identifying key. These indexed files may 
be accessed either directly or sequentially, but they must be 
assigned to input/output devices that are capable of direct 
access such as disk or diskette. Indexed file organization is 
indicated in the COBOL program by the ORGANIZATION IS INDEXED 
clause. 


7.1.3  CODOS-SA FILE ORGANIZATION 
A CODOS-SA file is a sequential file having the same 
format as source files produced by the EDITOR. CODOS-SA 


files are compatible with all utilities which are able to 
access files created with the EDITOR. _ 
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7.2 PILE ACCESS 


The eiree methods of eeverenng files are sequential, 
“Bengomy: and dynamic. | | 


7.2.1 SEQUENTIAL ACCESS 


Sequential access is the technique of referencing 
records serially within a file. The order in which records 
are read or written is determined implicitly by relative 
physical position within the file. This access method is 
specified by the ACCESS MODE IS SEQUENTIAL clause or is 
implied by the omission of that clause. 


laLed RANDOM ACCESS 


Random access is the technique of reading and writing 
records of a file in an order that is specified by the 
programmer. It may only be used with files that have an 
ORGANIZATION IS INDEXED clause in their description. The — 
record to be referenced is indicated by the value of a key at 
the time that the input/output command is issued. This 
access method is specified by the ACCESS MODE IS RANDOM 
clause. The RECORD KEY clause specifies the key. 


7.2.3 DYNAMIC ACCESS 


kA OW mr 
CO pe accessed 


amic ¥v ié 
either sequentially ae randomly depending upon the I/O 
statement. It may only be used with files having an 
ORGANIZATION IS INDEXED clause. This access mode is 
specified by the ACCESS IS DYNAMIC clause. The RECORD KEY 


clause is also required. 
13 _ FILE-HANDLING METHODS 

A £ile-handling method is the effect of the combination 
of file organization, the manner in which the file is Spenedr 
and the access technique. 
203.1 WITH SEQUENTIAL ACCESS 

An OPEN OUTPUT statement for a file with sequential 

access creates a sequential file. New records replace any 


previous file contents. 


An OPEN EXTEND statement adds new records to the end of 
an existing sequential file. 


Page 7-02 


An OPEN INPUT statement for a file with sequential 
Organization obtains records during a READ statement serially 
in the order in which they were originally written. For a 
file with indexed organization, the READ statement would 
obtain records serially in key value order, which is not 
necesSarily in the order in which they were written. 


7.3.2 WITH RANDOM ACCESS 


An OPEN OUTPUT statement creates a new indexed file by 
deleting all records in an existing file. A RECORD KEY 
clause must be specified whose contents are consulted upon 
each WRITE statement. 


An OPEN INPUT statement can only be used with an indexed 
file when random access has been specified. A RECORD KEY 
must also be specified whose contents are consulted upon each 
READ statement to locate the desired record within the file. 


An OPEN I-O statement is only used with an indexed file 
whose RECORD KEY has been specified. This is the only 
statement that allows a file to be updated in one process 
instead of merely being referenced during a READ statement. 

Thus, the file can be both read and written to with the OPEN 
I-O statement. | 


7.4 CFMS FILE STRUCTURE 


All files with the exception of CODOS-SA files, must be 
created using the CFMS file utility prior to attempting to 
access them with COBOL programs. Files created with the CFMS 
utility may have a sequential or indexed organization. 


724.1 SEQUENTIAL FILES 

Each sequential file record consists of a l-byte record 
control character that is followed “PY the data portion of the 
record. | 

The maximum length of a sequential file record is 502 
DUCES S 
7.4.2 INDEXED SEQUENTIAL FILES 

The records of an indexed sequential file consist of a 
1l-byte record control byte, an n-byte record nevi and the 
data portion of the record. 

The maximum size of the eGubied: eecora key and data 


portions of an indexed sequential record is 502 bytes. 
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7. 5 DISKETTE INITIALIZATION 


Before any files can be created on a dtekacee: the | 
diskette must be properly formatted and a CODOS file catalog 
created. This is accomplished on a CODOS system using the 
appropriate et program as explained in the CODOS User's 
Guide. | 


7.6 DATA FILE CREATION 


| Perform the following steps to create a data file with a 
-DF suffix. Refer to Table 7-1 for a listing of any error 
messages that may appear. : | 


1. After the CODOS equal sign (=) prompt, key CFMS, then 
press RETURN. The following messages appear: 


CDX-68 FILE MANAGEMENT SYSTEM -- REV. X.XX 
SPECIFY DISK DRIVE NUMBER OF YOUR NEW DATA DISK. 


2% Key a0, 1, 2, or 3 aS appropriate. The CFMS question 
mark (?) prompt appears to indicate that CFMS commands 
may now be entered. 


3. Key: C or CREATE file-name, record-size,key-size,D 


where: file-name = 8 alphabetic and/or numeric characters; 
i: the first character must be alphabetic, 
Special characters, such as the space and 


a orm sa re 


a 
hypnen, are not permitted. 


record-size = 502 bytes maximum for only the data and 
record key portions of a record. 


key-size = 60 bytes maximum for the record key 
¢ length of an indexed sequential file. 
This option is omitted when specifying 
a sequential file record. 


DF. an optional entry that indicates that 
| records with duplicate record keys are 
allowed in this indexed sequential file. 
Examples: 
CREATE PRSNNLO1,500,9 


CREATE NAMES,80,15,DUP 
CREATE XACTIONS,125 
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4, Press RETURN. View the following messages that are 
displayed. The messages for a sequential file are: 
SHOULD SEQUENTIAL FILE file-name. DF BE ADDED TO 
disk-name. DISKETTE WITH record-size BYTE RECORDS 
? : 


The messages for an indexed sequential file are: 


SHOULD INDEXED SEQUENTIAL FILE file-name.DF BE ADDED TO 
diskname DISKETTE WITH record-size BYTE RECORDS AND A 
key-size BYTE KEY FIELD AND WITH NO DUPLICATIONS ALLOWED 
: 


5. Press Y, then RETURN to add the new file to the 
diskette. The question mark (?) prompt character 
appears on a new line. 


6. To return to the CODOS equal sign (=) level, key © 
END (or E) then press RETURN. The CODOS equal Sign 


prompt appears. 


NOTE: The CREATE command does not place data in the file. 
A COBOL program must do that. 


Table 7-1. CFMS ERROR MESSAGES 
Number - Message 


1 INVALID FILE NAME 
2 INCONSISTENT RECORD SIZE 
3 INCONSISTENT KEY SIZE 

4 ILLEGAL FILE TYPE 

5 ILLEGAL PROCESSING MODE 
6. FILE CURRENTLY BUSY 

8 END-OF-FILE ENCOUNTERED 
9 RECORD NOT FOUND 


10 DUPLICATE KEY VALUE DETECTED 

12 NEXT RECORD NOT DEFINED 

13 7 ILLEGAL COMPARE INDICATOR 

16 FILE CURRENTLY OPEN BY THIS USER 
18 | | INVALID COMMAND BYTE 

20 — FILE NOT OPEN & COMMAND NOT OPEN 
21 | | . OPERATING SYSTEM ERROR | 

22 7 - DISC SPECIFIED IN OPEN NOT MOUNTED 


NOTE: CODOS disk error messages 0 through 25 can also be 
returned during CFMS processing. See Appendix D for 
a listing of these messages. | | 
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7.7 DATA FILE LISTS 
To list all CFMS data files ona diskette, perform the — 
following ie a 


i. After the CFMS question fark (?) prompt , key LIST. 
(or L), then press RETURN. 


2. The following information is displayed. for each file 
that has a .DF suffix and the CFMS file format. 


DISK ID: DATE s__ USER: _ 
NAME REC. SIZE TYPE KEY SIZE 


ALT 


HHT 


ew) 
Cc 
tg 
cA 


3 Following the LIST process, key an END (or E) command 
as explained below. 


7.8 THE END COMMAND 


To end CFMS program execution, perform the following 
step. 


. ais Key END (or E), then press RETURN. The CODOS equal sign 
(=) appears. | 


7.8.1 CODOS-SA TYPE FILES 


The CODOS-SA organization specifies a CODOS source image 
file which can be used as input/output. The CODOS-SA type 
data file allows the user to build, retrieve, and update ina 
Sequential method. The ONLY input/output statements 
supported by the CODOS-SA type files are: OPEN, READ, WRITE, 
and CLOSE. A COBOL program can define a maximum of eight 
CODOS-SA type files. 


\ 


CHAPTER 8 - USING A COBOL PROGRAM WITH THE CDX-68 


COBOL source programs are created and maintained by 
uSing the EDITOR program. A source program is then compiled 
by the COBOL compiler to produce a loadable program module. 
The COBOL compiler and the EDITOR program operate under the 
Girection of the Codex disk operating system (CODOS). 


Before writing or compiling a COBOL program with CODOS, 
the programmer should have some general knowledge of the uses 
of the CODOS operating system and its utility programs that 
are available as an aid to software development. Information 
on this operating system may be found in the CODOS User's 
Manual. 


8.1 READYING THE CDX-68 SYSTEM 


The heart of the CDX-68 system is the CRT terminal in 
which the microcomputer, memory, interfaces, and other 
elements are stored. The three DIP switch groups on the back 
of the terminal must be set as follows for proper system 
operation. 


GROUP ONE GROUP TWO 

ENABLE ON DUPLEX FULL 
DISPLAY © - OFF PARITY NO 

| | EVEN 
TRANS MODE OFF | | 
VIDEO INV OFF XMIT WORDS 8-BIT 
A ON "STOP BIT 1 
B OFF CONNECTION DIRECT 
C OFF MODEM TYPE 103 
SPEC CHAR OFF TURN AROUND S-CHAN 


LINE FREQ OFF CODE SEL _ BOT 


GROUP THREE 


BAUD RATE-SELECT ONLY ONE. 
(9600 is the most desirable) 
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8.2 ENTERING AND EDITING A NEW PROGRAM 


1. 


Perform the following steps to enter a new COBOL 


/ program, 


‘Ensure that the CODOS equal sign (=) prompt appears on 


the screen, then press the ALL CAPS key. This key's 
indicator illuminates to show that keyed letters will 
appear in uppercase. | 


Key: EDIT file-name.SA:drive-number:C 


where file-name = a maximum of 8 alphabetic and/or 
numeric characters; the first 
character must be alphabetic. Special 
Characters, such as the Space and 
hyphen, are not permitted, 


the number of the diskette drive that 
is to store the source program, such 
as 0, l, 2, etc. 


drive-number 


C = COBOL tabs set at columns 6, 9, and 

| 12. The space bar is used as the tab. 
key. Margin A is column 6; Margin B 
is column 9. Column X iS Margin C, 
the continuation column. 


Examples: 


ee seem 2 22 om 


EDIT UPDATEOL. VSAtiiC 
EDIT ORDERS05.SA:0;C 


NOTE: To have COBOL tabs that conform to the ANS standard, 


aie 


refer to the EDITOR User's Guide. 
Press RETURN. The screen clears, then displays: 
0010 


Key the COBOL source program, pressing RETURN at the 
end of each line. | 


After the program has been keyed, press the Fl key. The 


cursor moves to the bottom of the screen. Key QUIT, 
then press RETURN. The CODOS equal sign (=) prompt 
appears. 3 


To edit the COBOL ——— refer to the EDITOR User's 
Guide for editing instructions. These instructions are 


too numerous to discuss in this manual. 
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8.2.1 DATETIME COMMAND 


The CODOS command, DATETIME, requests the current date 


and time from the operator. This information is then stored 
for use in COBOL programs. Perform the following steps to 
use this command. 


1. 


Ensure that the CODOS equal sign (=) prompt appears on 
the screen, then key: | 


DATETIME 
and press RETURN. The following message appears: 
DATE (MMDDYY)- 


Key the date, then press RETURN. The following message 
appears: 


TIME (HHMM) - 


Key the time, then press RETURN. The system then 
returns to the CODOS (=) prompt. 
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8.3 COMPILING A SOURCE COBOL PROGRAM 
| To compile a source COBOL program, first ensure that the 
CODOS equal Sign (=) prompt appears on the screen, then uses 
COBOL file- evenereneicns 


and press RETURN. File-name is the file name of a COBOL 
source program that is stored on disk or diskette. The | 
default file suffix is .SA. The default disk number is zero. 
For example: © | 7 | 


COBOL PRTALL 

COBOL PRTALL.SA 

COBOL PRTALL.SA:0 
The options are: 


none oe List only source program errors and object 
| | program size on the screen. | 


P List only source program errors on the 
printer. 
S List the source program on the screen as it 


is compiled. 


List the source program and the compiled 
object code to the screen, 


ay, 


ak bh A MAL eR RMA rw am de i 
ist Cilc. weVUL LO vL ogra u 
L 


as it is compiled. | : 
LP | List the source program and generated 

| | object code to the line printer as it is 
compiled. 


O=file-name Saves the compiled code in the stated 

| file-name for later execution. The default 
file suffix is .LO, and the default disk 
drive is 0. | | 


D . c Debug mode, which causes the compiled 
program to print each paragraph name on the 
printer during program execution, 


Pen _ Sets the line count on a printed page _ 
| a during compilation to n. The default page 
line count during compilation is 58. 


NOTE: In general, the options may be written in any order. 
However, the O=file-name option must appear last. 
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Examples: 


COBOL Command © Result after Compilation 


om (nee Gu Gnen WE Gees we Gee Ge GD Gee Gee ene up @=e axe @@ aE Ger Ge Gm G&S GF em = Om GH Ft OF OO GE OF Eo OF EU = ae 


COBOL PAY Displays source program errors on 
the screen. 


COBOL PAY;SPO=PAY Prints the source program and any 
of the source program's errors. 
The compiled code is saved in the 
file PAY.LO:0. 


COBOL PAY;PDO=FKEY05 Source program errors are printed. 
| The compiled code is saved in the 
file FKEY05.L0O:0. Trace coding is 
generated which prints each 
paragraph name on the printer 
during execution. 


If desired, the COBOL compilation process may be halted 
by pressing the BREAK key. 


8.4 EXECUTING THE COBOL PROGRAM — 


This section describes the two methods to execute 
compiled COBOL programs, 


8.4.1 INTERACTIVE EXECUTION 


Perform the following steps to execute a compiled COBOL 
program. 


1. Ensure that the CODOS equal sign (=) prompt 
appears on the screen, then key: 


RUN 
and press RETURN. The following messages are displayed: 


CDX68 COBOL 

RUN TIME VERSION X.XX_.. 
COPYRIGHT 1980 BY CODEX CORP. 
READY- 


2. Key the name of a compiled COBOL program. If this name | 
is in the form FKEYnn or SKEYnn, press the function or 
shift key that corresponds with its name. 


NOTE: Files with names FKEYO1 through FKEY16, or SKEY03 


through SKEY16 are automatically assigned to the 
respective function or shift function keys. © 
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For example, a program that had the name FKEY03 could be 


called after the READY prompt simply by pressing F3. 


| Observe any message that may appear. System messages 


are of two typeS: operator messages and programmer 


- error messages. 


Operator messages request some form of operator 
interaction such as readying the printer. Some operator 
messages require a keyboard response: Y for yes and N 
for no. These messages are listed in Appendix B. 


Programmer error messages normally indicate a problem 
that is too serious for the operator to handle, such as 
a bug in the COBOL program or ee These messages 


have the following format: 


** ERROR (xx) ** 
a brief descriptive message 
AT (pc) 


where xx is the programmer message number, and pc is the 
COBOL program counter when the error occurred, The 
program counter that was running when the error occurred 
is aborted. Programmer error messages are listed in 
Appendix D. 


The system can be returned to the CODOS "=" prompt level 


from the COBOL RUN mode simply by keying: 
STOP 

and pressing RETURN, or by keying: 
SHIFT Fl. 


When the program executes a STOP. RUN, the screen is not 


cleared, but the READY-prompt is written on screen line 


23. This process allows the program to leave 
information on the screen for the operator. 
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8.4.2 BATCH EXECUTION 


Perform the following steps to execute compiled COBOL 
programs. 


1. Ensure that the CODOS equal sign (=) prompt appears on 
the screen, then key: 


RUN;B 
and press RETURN. The following messages are displayed: 


CDX68 COBOL 

RUN TIME VERSION X.XX 
COPYRIGHT 1980 BY CODEX CORP. 
READY- 


2. Key the name of a compiled COBOL program. 


NOTE: Program files may not be assigned to function 
keys. 


Using the COBOL runtime in batch mode allows the 
user to execute COBOL programs from a CHAIN 
file. COBOL programs may also be executed 
interactively by using the ";B" option. In 
either case, the user may optionally specify 
disk and file substitution of data-files 
referenced by the COBOL program. This allows 
the user to assign disk and file names in the 
COBOL program, and then use this program to 
access disks and files that do not necessarily 
match those specified in the COBOL program. 


Please note that the "ACCEPT" verb will 
not obtain data from a CHAIN file as keyboard 
input cannot be entered when using a CHAIN file. 


Each program name should be prefaced with an equal Sign 
(=); the disk drive number ":n" may (optionally) follow 
the program name. The default disk drive number is 
zero, The syntax "P=" object filename or "PROGRAM=" 
object filename may be used to make CHAIN files more 
readable. 


=EXAMPLE:1 


NOTE: To stop Runtime, key "=STOP," or if using a CHAIN 
file, have "=STOP" in the file. | 


Up to four different VOLID:FILNAM subsitutions may be 
defined at Runtime (per program). Each substitution 
block defines the Runtime substitution of a previously 
specified VOLID:FILNAM with a (new) VOLID:FILNAM. 
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Multiple substitution blocks are separated by a comma. 
If multiple lines are used, each line must be terminated 
with a comma; a substitution may not be split between 
lines. If used, vo and FILNAMS must not exceed 8 
Gnepecneres 


EXAMPLE: A program called UPDATE identifies an employee 


O Ul dk Wh EHO 


master file as "MASTER:EMPLY" that normally 
resides on volume MASTER. A volume backup is 
kept with the volume name, "BACKUP." At program 
execution time, volume substitution would allow 
the program to execute using the EMPLY file on 
volume BACKUP. 


UPDATE ; MASTER : EMP/.Y=BACKUP t EMPLY 


If a file copy is only maintained on the MASTER 
volume under the name, "EMPLYOLD," the file name 
substitution would allow it to access the Baneae 
file copy on the same volume. 


=UPDATE ; MASTER : EMPLY=MASTER : EMPLYOLD 


The syntax errors that will appear if there is any 
deviation from the expected form are: 


Error in old VOLID specified for substitution 
Error in Old FILNAM specified for substitution 
Error in new VOLID specified for substitution 
Error in new FILNAM specified for substitution 
= not founa , 
Name exceeds 8 characters 

Too many substitutions defined. 


ee ee 606 e@ 


ee @6¢ e6 


Observe any message that may appear. System messages 
are of two types: operator messages and programmer 
error messages. 


Operator messages request some form of operator 


interaction such as readying the printer. Some operator 


messages require a keyboard response: Y for yes and N- 
for no. These messages are listed in Appendix B. 


Programmer error messages normally indicate a preoien 
that is too serious for the operator to handle, such as 
a bug in the COBOL program or eee: These messages 
have the Followig format: | 


** ERROR (xx) ** 

a brief descriptive message 

AT (pc) 
where XX 1s the programmer message number, and pc is the 
COBOL program counter when the error occurred. The 
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program counter that was running when the error occurred 
is aborted. 


8.4.3 CHAIN FILE OPERATION EXAMPLE 


A chain file mode of operation can be utilized to take 
full advantage of the Batch COBOL facilities to create a 
COBOL system job stream. This requires no operator 
interaction other than the initiation of the chain file. The 
following example illustrates this use. For further 
information on CHAIN files, see the CODOS User's Guide. 


RUN;B _*(Begin Runtime) 
PGM=INPUT *(Input payroll data) 
PGM=EDIT *(Edit input data) 
PGM=STOP * (Terminate Runtime) 
SORTM INPUT.SA,OUTPUT.SA,K=PARAMS.SA *(SORT input file) 
RUN;B * (Restart Runtime) 
PGM=UPDATE * (Update program) 
PGM=PRINT ; MASTER : EMPLY=MASTER : EMPLYNEW, *(Print payroll 

| MASTER : CHECK=MASTER : CHECKNEW check file) 
PGM=STOP | *(End Job stream) 


8.5 DEBUGGING 


The Codex COBOL system supports two debugging features: 
a paragraph name trace and the EXHIBIT statement. The 
paragraph name trace has already been listed as compilation 
option D (for debug mode). The execution of the EXHIBIT 
statement causes specified data or literals to be displayed 
on the printer. The format of the EXHIBIT statement is: 


EXHIBIT [NAMED] identifier-1l identifier-2 
literal-l literal-2 are 


The items specified in the EXHIBIT statement are 
separated by blanks when printed. When the NAMED option is 
included, the data for an identifier is preceded by the name 
of the identifier. For example: 


EXHIBIT VALUE-A, VALUE-B. 

EXHIBIT NAMED VALUE-A, VALUE-B. 

EXHIBIT 'VALUES ARE' VALUE-A, VALUE-B. 
EXHIBIT NAMED ‘VALUES ARE' VALUE-A, VALUE-B. 
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Assuming that VALUE-A contains 123 and VALUE-B contains 
‘'XxY¥Z' then the data printed by the above statements will be: 


123 XYZ | | 
VALUE-A 123 VALUE-B XYZ ~ 


VALUES ARE 123 XYZ 
VALUES ARE VALUE-A 123 VALUE-B XYZ 
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APPENDIX A - COBOL RESERVED WORDS 


ACCEPT 
ACCESS 
ACTUAL 

ADD 
ADDRESS: 
ADVANCING 
AFTER 

ALL | 
ALPHABETIC 
ALTER 
ALTERNATE 


ASSIGN 


BEFORE 
BEGINNING 
BLANK 
BLOCK 
BOTTOM 
BREAK-KEY 
BY 


CALL 

CANCEL — 

CF 

CH 

CHARACTERS 
CLOCK-UNITS 
CLOSE 

COBOL 

CODE 

COLUMN 

COMMA 

COMP 

COMP-1 

COMP-2 

COMP-3 
COMPUTATIONAL 

- COMPUTATIONAL-1 
COMPUTATIONAL-2 
COMPUTATIONAL-3 
COMPUTE 
CONFIGURATION 
CONTAINS 


CONTROL 
CONTROLS 

COPY 

CORR 
CORRESPONDING 
COUNT 
CURRENCY 


DATA 

DATE 
DATE-COMPILED 
DATE-WRITTEN 
DE 
DEBUG-CONTENTS 
DEBUG-ITEM 
DEBUG-LINE 
DEBUG-~NAME 
DEBUG-SUB1 


_ DEBUG-SUB3 


DEBUGGING 
DECIMAL-POINT 
DECLARATIVES 
DELIMITED 
DELIMITER 
DEPENDING 
DESCENDING 
DETAIL 
DISPLAY 
DIVIDE 
DIVISION 
DOWN 
DUPLICATES 
DYNAMIC 


ELSE 

END 

ENDING 
ENTER 
ENVIRONMENT 
EQUAL 
EQUALS 
ERROR 


EVERY 


EXHIBIT 
EXIT 
EXTEND 
EXIT 
EXTEND 


FD 
FILE 
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FILE-CONTROL 
FILE-LIMIT 
FILE-LIMITS 
FILLER 
FINAL 

FIRST 
FOOTING 

FOR 

FROM 


GENERATE 
GIVING 
GO 
GREATER 
GROUP 


HEADING 
HIGH-VALUE 
HIGH-VALUES 


I-O 
I-O CONTROL 
IDENTIFICATION 


INDEXED 
INDICATE 
INITIAL 
INITIATE 
INPUT 
INPUT-OUTPUT 
INSPECT 
INSTALLATION 
INTO 


JUST 
JUSTIFIED 


KEY 
KEYS 


LABEL 
LAST 
LEADING 
LEFT — 
LESS 
LIBRARY 
LIMIT 
LIMITS 


LINAGE | 
LINAGE-COUNTER 
LINE | 
LINE-COUNTER 
LINES | 
LINKAGE 

LOCK 

LOW-VALUE 
LOW-VALUES 


MEMORY 
MODE 
MODULES © 
MOVE 
MULTIPLE 
MULTIPLY 


NAMED 
NEGATIVE 
NEXT 

NO 

NOT 
NUMBER 
NUMERIC 


OBJECT-COMPUTER 


OCCURS 
OF 


AIM 
Veer 


OH 
OMITTED 
ON. 
OPEN | 
OPTIONAL 


OVERFLOW 


PAGE 
PAGE-COUNTER 
PERFORM 
PF : 


PIC 
PICTURE 
PLUS 
POINTER 
POSITION 
POSITIVE 
PROCEDURE 
PROCEDURES 


- PROCEED 


PROCESSING 
PROGRAM 
PROGRAM-ID 


REDEFINES 
REEL 
REFERENCES 
RELEASE | 
REMAINDER 
REMARKS 
RENAMES 
REPLACING 


REPORT 


REPORTING 
REPORTS 
RERUN | 
RESERVE 


RESET 


RETURN 
REVERSED 


DOG TAIT) 
INLAY LLY 


REWRITE 
RF | 


SECURITY 
SEEK 


SEGMENT-LIMIT 


SELECT 
SELECTED 


| SENTENCE 


SEQUENTIAL 


SET 


SIGN 
SIZE 
SORT 


SOURCE 
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SOURCE~COMPUTER 
SPACE 

SPACES 
SPECIAL~NAMES 
STANDARD 
STATUS 

STOP 

STRING 
SUBTRACT 

SUM 

SYNC 
SYNCHRONIZED 


TALLY 
TALLYING 
TAPE 
TERMINATE 


UNIT — 


UNSTRING 
UNTTIT, 


dV cle clin dnd 


UP 


UPON 
USAGE 
USE 
USING 


VALUE 
VALUES 
VARYING 


WHEN 

WITH 

WORDS : 
WORKING-STORAGE 
WRITE 


ZERO 
ZEROES 
ZEROS 


APPENDIX B - DISPLAY CONTROL CODES 


CODE COMMAND 
of) CURSOR TO HOME POSITION 
Cl CURSOR UP ONE LINE 

C2 CURSOR DOWN ONE LINE 

C3 CURSOR LEFT ONE COLUMN 
C4 CURSOR RIGHT ONE COLUMN 
C5 LOAD CURSOR POSITION 

C6 READ CURSOR POSITION 

C7 SET PAGE MODE 

C8 SET SCROLL MODE 

C9 | SET TOP DISPLAY LINE 

CA SET LAST DISPLAY LINE 
CB SET LEFT DISPLAY COLUMN 
cc SET RIGHT DISPLAY COLUMN 
CD SET PROTECT MODE 

CE WRITE ABSOLUTE 

CF - READ ABSOLUTE 

DO CHARACTER INSERT 

D1 CHARACTER DELETE 

D2 ENABLE KEYBOARD 

D3 DISABLE KEYBOARD 

D4 PAGE ERASE 

D5 LINE ERASE 

D6 LINE INSERT 

D7 | LINE DELETE 

D8 CLEAR/HOME 

D9 SEND PAGE 

DA TAB 

DB BACK TAB 

DC SET TABS 

DD START DATA 

DE END DATA 

DF SEND LINE 

E0 SET BLINK 

El RESET BLINK 

E2 SET (FIELD) VIDEO INVERT 
E3 RESET (FIELD) VIDEO INVERT 
E4 | SET HALF BRIGHT 

E5 - RESET HALF BRIGHT 

E6 | SET UNDERLINE 

E7 RESET UNDERLINE 

E8 SET NON-DISPLAY 

E9 RESET NON-DISPLAY 

EA SET FIELD PROTECT 

EB RESET FIELD PROTECT 

EC SET TRANSPARENT MODE 


ED RESET TRANSPARENT MODE 
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COMMAND 


SET VIDEO INVERT-FULL SCREEN 


RESET VIDEO INVERT-FULL SCREEN 


TERMINAL RESET 


ALLOW STATUS INDICATORS 


DISALLOW STATUS INDICATORS 
ENABLE LOAD FUNCTION 

DISABLE LOAD FUNCTION | 
SET DISPLAY SPECIAL CHARACTERS 
RESET DISPLAY SPECIAL CHARACTERS 


BELL 
BACKSPACE | 
HORIZONTAL TAB 

LINE FEED 

VERTICAL FEED 

FORM FEED 

CARRIAGE RETURN 
CANCEL | 
STATUS--PARITY ERROR 


- STATUS--RECEIVED OVERRUN © 


STATUS--FRAMING ERROR 
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NUMBER 


APPENDIX C - COMPILER ERROR MESSAGES 


EXPLANATION 


Illegal character has been used. 

Continuation expected here. 

Parse stack overflow (compiler error). 

Variable contains more than 30 characters or a 
number contains more than 15 digits. 

Syntax error. 

The compiler has generated an out-of-range branch 
address. 

COPY statements may not be nested. 

File-name used in a COPY statement cannot be 
found. The file-name must end in SA. 

This statement label has already been used. 

This name is already defined. 

Number of OCCURS is too large. 

OCCURS is not allowed with FILLER. 

This program is too big to execute. 

The generated code and symbol table are 
overlapping in memory. 

An invalid level number is being used. 

REDEFINES statement is illegal. 

PICTURE clause is too large. 

The item previous to this statement is not a 
group. Therefore, this statement is out of order. 
Level 01 is missing. 

VALUE is not allowed on REDEFINES. 

VALUE clause not allowed in LINKAGE SECTION. 
Subroutine name exceeds the maximum allowed. 

Too many statement labels are being used in a GOTO. 
External name already used. 

Dummy argument name already used. 


Too many clauses in a PERFORM statement. 


Already resolved. 

Too many operands in an expression. 

The number of subscripts are not equal to the 
number of dimensions. 

Subscript out of range. 

An undefined name has been used. 

Operand must be an integer. 

Name is not fully qualified. 

More than three (3) subscripts are invalid. 

A literal used with "ALL" must be only byte. 

A literal used with "ALL" must not be numeric. 

No OCCURS clause for the table. 

An unknown edit code has been used. 

There is a conflict between numeric and alphanumeric. 
A replacement code must be the leading ener aceers 
Only one edit Sign may be used. 


Page C-O0l 


NUMBER 


EXPLANATION 


oe oe ae an ee a oe ee ae ae 


Only one V or period is allowed in a picture. 
Only one S is allowed in an edit picture. 

The characters CR and DB must be the last two 
characters of the edit field. 

There is a conflict between USAGE and PICTURE. 
There is a conflict between VALUE and PICTURE. 
Justified RIGHT/PICTURE conflict. 

BLANK when ZERO/PICTURE conflict. 

Too many nested IF statements. 

An incomplete logical expression has been found. 
The RECORD KEY clause is missing. 


The referenced file is not RANDOM. 


An invalid device type is being used, or a disk 
file name is invalid. 

A line or column number is too large. Line 
maximum is 24, column maximum is 80. 

A line or column overlaps last field. 

This field overflows the screen. 

A field cannot start in column one. 

CRT cursor controls must be the first of any 
elementary item. 

A level 77 cannot be Ueee for cursor controls. 
FD misSing. 

File description missing. 

Operand must be numeric. 

Arithmetic operation not recognized. 

Invalid logicai expression. | 

Operand cannot be a literal. Also can mean that 
the program has exceeded available memory. 
Compute statement requires too many intermediate 
results to be saved. 
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APPENDIX D' - EXECUTION ERROR MESSAGES 


Operator Error Messages 


FILE ******** DOES NOT EXIST 
(An undefined COBOL program or funetvon key 
was requested. 


PRINTER NOT READY--RETRY (Y/N)? 
(The printer is not ready. Ready it and press Y 
to retry; press N to abort the request and the 
program.) 


Programmer Error Messages 


The following messages are preceded by "ERROR (XX)" and 
followed by "AT (PC)" where XX is the error number, and PC is 
the COBOL program counter in hexadecimal code. This code 
corresponds with the codes printed on the programs's 
compilation listing. 


ERROR NUMBER ERROR MESSAGE 


01 INVALID FILE NAME 


02 INCONSISTENT RECORD SIZE 

03 - INCONSISTENT KEY SIZE 

04 | ILLEGAL FILE TYPE 

05 ILLEGAL PROCESSING MODE 

06 FILE CURRENTLY BUSY 

12 NEXT RECORD NOT DEFINED 

16 FILE CURRENTLY OPEN BY THIS USER 
18 | INVALID COMMAND BYTE | 
20 FILE NOT OPEN & CMD NE OPEN 

21 OS ERROR 

22 DISK SPECIFIED IN OPEN NOT MOUNTED 
23 LOAD ERROR 

24 ILLEGAL SUBSCRIPT 

30 = ILLEGAL I-O CALL 


31 VERSIONS DON'T MATCH 
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PAGE 
0010 


APPENDIX E - SAMPLE COBOL PROGRAM 
001 ADD ~-SA:0 APPENDIX E - SAMPLE COBOL PROGRAM. 


IDENTIFICATION DIVISION. 


0020 * 


0030 
0040 
0050 
0060 
0070 
0080 
0090 
0100 
0110 
0120 
0130 
0140 
0150 
0160 
0170 
0180 
0190 
0200 
0210 
0220 


PROGRAM-ID. ADD 
AUTHOR. CODEX CORP. 
DATE-WRITTEN. 03/18/80. 


DATE~COMPILED. 03/20/80. 
* 


* 
ENVIRONMENT DIVISION. 
* 
CONFIGURATION SECTION. 
SOURCE-COMPUTER. CDX-68. 
OBJECT-COMPUTER. CDX-68. 
INPUT-OUTPUT SECTION. 
FILE-CONTROL. 
SELECT DATAFILE 
ASSIGN TO DISK INV: INVPILE 
ORGANIZATION IS INDEXED 
ACCESS IS RANDOM | 
RECORD KEY IS PART-NUMBER. 
* 
DATA DIVISION. 


0230 * 


0240 
0250 
0260 
0270 
0280 


FILE SECTION. 
FD DATAFILE 
LABEL RECORDS ARE OMITTED 
DATA RECORD IS MASTER-REC. 
COPY MASREC. 


0290 * 


0300 
0310 
0320 
0330 
0340 
0350 
0360 
0370 
0380 
0390 
0400 


SECTION. 
9 VALUE 
99 VALUE 
99 VALUE 
99. 


WORKING-STORAGE 
77 ERRCK PIC 
77 E | PIC 
77 xX PIC 
77 Y PIC 

X1 PIC 99, 

X2 PIC 99. 

TAB PIC X VALUE $09. 

WORK-5 PIC S9(5). 

FUNMSG LINE IS NEXT PAGE. 
02 FILLER PIC X(3) COLUMN 37; VALUE 


ZERO. 
ZERO. 
ZERO. 


"ADD'. 


0410 * 


0420 
0430 
0440 
0450 
0460 
0470 
0480 


0490 


* DISPLAY ITEM NUMBER REQUEST ON LINE 2 OF SCREEN 
01 ITEM-NUM-LINE. 

02 FILLER PIC X(11) 

02 FILLER PIC X(8) 
01 ANS. ! 

02 ANS-ITEM PIC X(8). 
* ERRROW & ERRCOL ARE TABLE POS OF ROW & COL FOR 
* CURSOR FOR ERRORS 


LINE 2; VALUE 'ITEM NUMBER’ 
COLUMN 15; VALUE SPACES. 
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PAGE 002 ADD .SA:0 APPENDIX E - SAMPLE COBOL PROGRAM. 


0500 O01 ERRROW. 


0510 
0520 
0530 
0540 
0550 
0560 
0570 

0580 
0590 
0600 
0610 
0620 
0630 
0640 
0650 
0660 
0670 
0680 
0690 
0700 
0710 
0720 
0730 
0740 
0750 
0760 


O77 0) 
Viiv 


0780 
0790 
0800 


0810 — 


0820 
0830 


— 0840 


0850 
0860 


0870 — 


0880 


0890 


0900 
0910 
0920 
0930 


0940 


0950 
0960 
0970 
0980 


0990 © 


O01 ROW REDEFINES ERRROW PIC 99 OCCURS 12 TIMES. 


FILLER 
FILLER 


FILLER 


FILLER 
FILLER 
FILLER 
FILLER 


FILLER 


FILLER 
FILLER 
FILLER 
FILLER 


01 ERRCOL. 


02 


OF 


OONNT 


FILLER 
FILLER 
FILLER 
FILLER 
FILLER 
FILLER 
FILLER 
FILLER 
FILLER 


FILLER 


FILLER 
FILLER 


PIC 
PIC 
PIC 
PIC 
PIC 


PIC 


PIC 
Pie 
PIC 
PIC 
PIC 
PIC 


PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 


99 


99 


VALUE 


VALUE 


VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 


| VALUE 


VALUE 
VALUE 


VALUE 


VALUE 
VALUE 


VALUE 


VALUE 
VALUE 


VALUE 


VALUE 
VALUE 
VALUE 
VALUE 
VALUE 


DENDLETALC CDDCHT 


VU iL Wwe INES) LINED LINN 


O01 ERR-TABLE. 
02 FILLER PIC X(20) VALUE 
02 FILLER PIC X(20) VALUE 


06. 
08. 
08. 
08. 
10. 
10. 
10. 
12. 
12. 
12. 
14. 
14. 


fase 
16. 
4i. 
71. 
18. 
43. 
72. 
18. 


i 


02 FILLER PIC X(20) VALUE 


02 FILLER PIC X(20) VALUE 
01 ERR-MSG REDEFINES ERR-TABLE PIC X(20) OCCURS 4 TIMES. 


O01 MASTER-AT-SCREEN. 


02 
02 
02 
02 
02 
02 
02 


FILLER 


FILLER 


FILLER 
FILLER 
FILLER 
FILLER 
FILLER 
FILLER 
FILLER 


FILLER © 


FILLER 
FILLER 
FILLER 
FILLER 
FILLER 


PIC 
PIC 
PIC 
PIC 
PIC 
Pic 
PIC 
PIC 


PIC 


PIC 
PIC 
PIC 
PIC 
PIC 
PIC 


X 


‘INVALID ENTRY | 
'ITEM ALREADY EXISTS'. 
SUCCESSFUL 
DISK I/O ERROR’. 


X(11) LINE 6; 


X (16) 
X (16) 
X (5) 
X (14) 
X (7) 


X(16) 


X (7) 
X (21) 
X (7) 
X (16) 
X (5) 
X (18) 
X (5) 


LINE) 


83 


LINE 2,COLUMN 14; 


COLUMN 18; 
COLUMN 57; 


LINE 10; 


Page 


—E+02. 


VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 


VALUE 


VALUE 
VALUE 
VALUE 


SEA. 


"DESCRIPTION'. 


SPACES. 


'LOCATION/BIN'. 


SPACES. 
‘COST’. 
SPACES. 
'  LIstT 
SPACES. 


PRICE". 


' TRADE PRICE’. 


SPACES. 
'OTY ON 
SPACES. 
'OTY ON 
SPACES. 


HAND'., 


ORDER‘. 


PAGE 


1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 


1130 


1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 


1350 - 


1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 


003 


* 


02 
02 


ADD 


FILLER 
FILLER 
FILLER 
FILLER 
FILLER 
FILLER 
FILLER 
FILLER 
FILLER 
FILLER 
FILLER 
FILLER 
FILLER 
FILLER 
FILLER 
FILLER 
FILLER 
FILLER 


~SA:0 


PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 


DATA FROM 
Ol DATAIN. 


SDESC 
SLOC 

SCOST 
SLIST 


PIC 
PIC 
PIC 
PIC 


STRADE PIC 
SQTY-HAND PIC X(5). 
SQTY-ORDER 


SDATE. 


03 SDATE-MO 
03 SDATE-DAY 
03 SDATE-YR 
SREORDER 
SSTOCKING 
SQTY-PER-PK PIC XXX. 


SVEND 
SLEAD 
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X (14) 
X (8) 
X(6) — 
X (16) 
X (5) 
X (18) 
X (5) 
X (16) 
X (7) 


LINE 12; 


LINE 14; 


LINE 17; 
SCREEN 


X(16). 
X(5). 
X(7).- 
X(7). 
X(7). 
PIC X(5). 
XX. 

XX. 

XX. 

X(5). 
X(5). 


PIC 
PIC 
PIC 
PIC 
PIC 


PIC XXX. 
PIC XXX. 


SBACK-O-FLAG PIC X. 


BLINK-OFF. 


LOC 


FILLER PIC X 


COST 


FILLER PIC X 


LIST PRICE 


FILLER PIC X 


TRADE PRICE 


FILLER PIC xX 


OTY ON HAND 


FILLER PIC X 


SCOMMENT PIC X(8). 


QTY ON ORDER 


Page 


COLUMN 52; 


E-03 


VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 


VALUE 


VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 


' DATE ORDERED". 
"(MMDDYY)'. 
SPACES. 

"REORDER POINT’. 
SPACES. 

' STOCKING QTY'. 
SPACES. 

" QTY/PKG FOR’. 
"REORDER'. 

SPACES. 
"VENDOR/TYPE CODE’. 
SPACES. 

' LEAD TIME‘. 
SPACES. 

"BACK ORDER FLAG'. 
SPACE. 

"COMMENT'. 

SPACES. 


LINE 6,COLUMN 73; VALUE $E3.. 
LINE 8,COLUMN 16; VALUE $E3. 
COLUMN 41; VALUE $E3. 
COLUMN 71; VALUE $53. 


LINE 10,COLUMN 18; VALUE SE3. 
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1500 02 FILLER PIC X = = — COLUMN 43; VALUE SE3. 
1510 * DATE ~ | | 

1520 02 FILLER PIC xX COLUMN 72; VALUE $E3. 
1530 * QTY FOR RE-ORDER 

1540 02 FILLER PIC X LINE 12,COLUMN 18; VALUE SE3. 
1550 * STOCKING QTY 4 

1560 02 FILLER PIC x COLUMN 43; VALUE SE3._ 
1570 * QTY PER PACK | | | 
1580 02 FILLER PIC x COLUMN 73; VALUE SE3. 
1590 02 FILLER PIC x LINE 14,COLUMN 20; VALUE SE3. 
1600 02 FILLER PIC X | COLUMN 43; VALUE S$E3. 
1610 * ERASE LINE 24 a 

1620 02 FILLER PIC x LINE 24,COLUMN 3; VALUE SD5. 


1630 AKER AE EAH KEIR HARRI ERE K ERIK ERIKA EIR RAE EERIE RI 


1640 PROCEDURE DIVISION. 
1650 AA-DRIVER-SECTION. 
1660 | | | | 
1670 THIS SECTION WILL DO INITIALIZATION/OPEN/CLOSE 
1680 * PERFORM PROCESSING ROUTINES & WRAP UP 

1690 | 

1700 OPEN I-O DATAFILE 

1710 * FUNCTION TYPE MSG 

1720 DISPLAY FUNMSG. 

1730 * GET PART NUM 

1740 GET-ITEM.~ 

1750 MOVE ZERO TO ERRCK Y. 

1760 DISPLAY ITEM-NUM-LINE. 


+ + 


+ 


bs io Moe i a \ 2a AA CIeAiTr~aArr 


L//U ACCEPT ANS. 
1780 * 

1790 PERFORM BA-READ-RECORD THRU BA-READ-RECORD- EXIT. 
1800 IF ERRCK EQUAL 1 GO TO GET-ITEM. 


1810 * DISPLAY BUILD REC SCREEN 
1820 DISPLAY MASTER-AT-SCREEN. 


1830 PERFORM BB- DATA-EDIT THRU BB-DATA-EDIT- EXIT. 
1840 * 

1850 PERFORM BC-DATA-UPDATE THRU BC-DATA-UPDATE-EXIT. 
1860 * | | | 4 

1870 CLOSE DATAFILE. 


1880 STOP RUN. | 

1890 AA-DRIVER-EXIT. EXIT. 

1900 * | | 

1910 BA-READ-RECORD. 

1920 * @. , 

1930 * THIS ROUTINE WILL VALIDATE THAT THE PART IS IN THE FILE 
1940 * | 

1950 DISPLAY @(24,2) $D5. 

1960 MOVE ANS-ITEM TO PART-NUMBER. 

1970 READ DATAFILE 

1980 " INVALID KEY GO TO BA-READ-RECORD- EXIT. 
1990 * RECORD ALREADY PRESENT 
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2490 
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2000 MOVE 2 TO E. 
2010 MOVE 1 TO ERRCK. 
2020 PERFORM MSG-PRT THRU MSG-PRT-EXIT. 
2030 BA-READ-RECORD-EXIT. EXIT. 
2040 * 
2050 * 
2060 BB-DATA-EDIT. 
2070 * | 
2080 * THIS ROUTINE WILL READ SCREEN & VALIDATE DATA FIELDS 
2090 * 
2100 ACCEPT DATAIN. _ 
2110 DISPLAY BLINK-OFF. 
2120 MOVE ZERO TO ERRCK Y. 
2130 * EDIT LOCATION 
2140 MOVE 1 TO X. 
2150 MOVE SLOC TO WORK-5 ON SIZE ERROR 
2160 PERFORM ERR-BLINK THRU ERR-BLINK-EXIT. 
2170 PERFORM EDIT-CK THRU EDIT-CK-EXIT. 
2180 * EDIT COST 
2190 CK-COST. | 
2200 MOVE SCOST TO COST 
2210 ON SIZE ERROR GO TO COST-ERR. 
2220 IF COST IS NUMERIC GO TO CK-LIST. 
2230 COST-ERR. 
2240 MOVE 2 TO X. 
2250 PERFORM ERR-BLINK THRU ERR-BLINK-EXIT. 
2260 CK-LIST. | 
2270 * VALIDATE LIST PRICE 
2280 MOVE SLIST TO LIST-PRICE 
2290 ON SIZE ERROR GO TO LIST-ERR. 
2300 IF LIST-PRICE IS NUMERIC GO TO CK-TRADE. 
2310 LIST-ERR. 
2320 MOVE 3 TO X. 
2330 PERFORM ERR-BLINK THRU ERR-BLINK-EXIT. 
2340 CK-TRADE. 
2350 * VALIDATE TRADE PRICE 
2360 MOVE STRADE TO TRADE-PRICE 
2370 ON SIZE ERROR GO TO TRADE-ERR. 
2380 IF TRADE-PRICE IS NUMERIC GO TO CK-QTY-HAND. 
2390 TRADE-ERR. 
2400 MOVE 4 TO X. 
2410 PERFORM ERR-BLINK THRU ERR-BLINK-EXIT. 
2420 CK-QTY-HAND. | 
2430 * VALIDATE QTY ON HAND 
2440 MOVE 5 TO X. 
2450 MOVE SQTY-HAND TO WORK-5 ON SIZE ERROR 
2460 - PERFORM ERR-BLINK THRU ERR-BLINK-EXIT. 
2470 PERFORM EDIT-CK THRU EDIT-CK-EXIT. 
2480 * VALIDATE QTY-ON-ORDER 
CK-ORD. 
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2500 


2510 


2520 
2530 


2540 
2550 
2560 
2570 
2580 
2590 
2600 
2610 
2620 
2630 
2640 
2650 
2660 


2670 


2680 
2690 
2700 
2710 
2720 
2730 
2740 
2750 
2760 


co er Mar Br a' 
42/fvV 


2780 
2790 
2800 
2810 
2820 
2830 
2840 
2850 
2860 
2870 
2880 
2890 
2900 
2910 
2920 
2930 
2940 
2950 
2960 
2970 
2980 
2990 
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MOVE 6 TO X. | 

MOVE SQTY-ORDER TO WORK-5 ON SIZE ERROR 
PERFORM ERR-BLINK THRU ERR-BLINK-EXIT. 

PERFORM EDIT-CK THRU EDIT-CK-EXIT. 

DATE EDIT 


CK-DATE. 


IF SDATE EQUAL SPACES 
MOVE ZERO TO ORDER-MONTH ORDER-DAY ORDER-YEAR 
GO TO CK-REORD. 

IF SDATE IS NOT NUMERIC GO TO DATE- ERR. 

MOVE SDATE TO ORDER-DATE. 

IF ORDER-MONTH GREATER THAN 12 OR LESS THAN ZERO 

GO TO DATE-ERR. | 
IF ORDER-DAY IS GREATER THAN 31 GO TO DATE-ERR. 
IF ORDER-YEAR IS GREATER THAN 76 GO TO CK-REORD. 


DATE-ERR. 


MOVE 7 TO X. 
PERFORM ERR-BLINK THRU ERR-~BLINK-EXIT. 


CK-REORD. 


* 


* 


EDIT REORDER POINT 

MOVE 8 TO X. | 

MOVE SREORDER TO WORK-5 ON SIZE ERROR 

_ PERFORM ERR-BLINK THRU ERR-BLINK-EXIT. 
PERFORM EDIT-CK THRU EDIT-CK-EXIT. 

EDIT STOCKING ory 


CK-STOCK. 


* 


BATTER ACOMAMZ TAO MAN UADwi_ek 


MOVE 9 TO X. 


ON cS Tr 7, BE PDDRDOAD 


MVE ODOLYULALIN'G LY WUNIN S LANA EN 


PERFORM ERR-BLINK THRU ERR-BLINK-EXIT. 
PERFORM EDIT-CK THRU EDIT-CK-EXIT. 
QTY PER PACKAGE 


CK-PACK. 


MOVE 10 TO X. 

MOVE SQTY-PER-PK TO WORK~-5 ON SIZE ERROR 
PERFORM ERR-BLINK THRU ERR-BLINK-EXIT. 

PERFORM EDIT-CK THRU EDIT-CK-EXIT. 


* EDIT VENDOR CODE 
CK-VEND. 


* 


MOVE ll TO X. 

MOVE SVEND TO WORD-5 
PERFORM ERR-BLINK 

PERFORM EDIT-CK THRU 

EDIT LEAD TIME | 


ON SIZE ERROR 
THRU ERR-BLINK-EXIT. 
EDIT-CK-EXIT. 


CK~LEAD. 


* 


MOVE 12 TO X. 

MOVE SLEAD TO WORK-5 
- PERFORM ERR-BLINK 

PERFORM EDIT-CK THRU 


ON SIZE ERROR. 
THRU ERR-BLINK-EXIT. 
EDIT-CK-EXIT. 


CK-ANY-ERR. 
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3000 
3010 
3020 
3030 
3040 
3050 
3060 
3070 
3080 
3090 
3100 
3110 
3120 
3130 
3140 
3150 
3160 
3170 
3180 
3190 
3200 
3210 
3220 
3230 
3240 
3250 
3260 
3270 
3280 
3290 
3300 
3310 
3320 
3330 
3340 
3350 
3360 
3370 
3380 
3390 
3400 
3410 
3420 
3430 
3440 
3450 
3460 
3470 
3480 
3490 


BB-DATA~-EDIT-EXIT. 
* 
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IF ERRCK EQUAL 1 ee ) 
MOVE 1 TO E | 
PERFORM MSG-PRT THRU MSG-PRT-EXIT 
PERFORM TAB-IT THRU TAB-IT-EXIT Y TIMES 


ELSE 


MOVE 
MOVE 
MOVE 
MOVE 
MOVE 
MOVE 
MOVE 
MOVE 
MOVE 
MOVE 
MOVE 
MOVE 
MOVE 


EDIT-CK. 
IF WORK-5 EQUAL ZERO GO TO EDIT-CK-EXIT. 
IF WORK-5 NOT NUMERIC GO TO EDIT-ERR. 
IF WORK-5 POSITIVE GO TO EDIT-CK-EXIT. 


EDIT-ERR. 
EDIT-CK~-EXIT. 
if | 


ERR-BLINK. 


* 
* 


ERR-BLINK-EXIT. 
* 


* 


SLOC TO LOCATION-BIN 

SQTY-HAND TO QTY-ON-HAND 

SQTY-ORDER TO QTY-ON-ORDER 

SREORDER TO REORDER-POINT 

SSTOCKING TO STOCKING-QTY 

SQTY-PER-PK TO QTY-PER-PACK 

SVEND TO VENDOR-CODE 

SLEAD TO LEAD-TIME 

SDESC TO DESCRIPTION 

SBACK-O-FLAG TO BACK-ORDER- IND 

ZERO TO ISS-MONTH-1 ISS-MONTH-2 ISS-MONTH-3 
ZERO TO ISS-QUARTER-1 ISS-QUARTER-2 ISS-QUARTER-3 
SCOMMENT TO COMMENT. 

EXIT. 


PERFORM ERR-BLINK THRU ERR-BLINK-EXIT. 


EXIT. 


ROUTINE TO BLINK FIELD IN ERROR 


DISPLAY @(ROW(X) ,COL(X)) SE2. 
IF Y EQUAL ZERO MOVE X TO Y. 
MOVE 1 TO ERRCK. 


EXIT. 


BC-DATA-UPDATE, 
k 


* 
* 


* 


THIS ROUTINE WILL WRITE THE MASTER TO DISK 


WRITE MASTER-REC INVALID KEY 


MOVE 4 TO E 
PERFORM MSG-PRT THRU MSG-PRT-EXIT 
GO TO BC-DATA-UPDATE-EXIT. 


SUCCESSFUL MSG 
MOVE 3 TO E. 
PERFORM MSG-PRT THRU MSG-PRT-EXIT. 


BC-DATA-UPDATE-EXIT. 
MSG-PRT. 


EXIT. 
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3500 * | | | 
3510 * ROUTINE TO PRINT MESSAGES ON SCREEN 
3520 * rs : | | 

3530 DISPLAY @(24,4) SEAEOC4 ERR-MSG(E). 
3540 MSG-PRT-EXIT. EXIT. 

3550 * 

3560 TAB-IT.. 

3570 DISPLAY TAB. 

3580 TAB-IT-EXIT. EXIT. 
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3010 01 MASTER-REC. 


J015 
020 
J030 
3040 
3050 
3060 


3070 


1080 
J090 


100 


110 
1120 
1130 
)140 
)150 
)160 
)170 
)180 
)190 
)200 
)210 
1220 
1230 
12.40 
1250 
1260 


X (8). 


02 PART-NUMBER PIC 
02 DESCRIPTION PIC X(16). 
02 LOCATION-BIN PIC 9(5).. 
02 Cost PIC 9(4)V99. 
02 LIST-PRICE PIC 9(4)V99. 
02 TRADE-PRICE PIC 9(4)V99. 
02 QTY-ON-HAND PIC 9(5). 
02 QTY-ON-ORDER PIC 9(5). 
02 QTY-PER-PACK PIC 999. 
02 REORDER-POINT PIC 9(5). 
02 STOCKING-QTY PIC 9(5). 
02 VENDOR-CODE PIC 999. 
02 LEAD-TIME PIC 999, 
02 ORDER-DATE. 

03 ORDER-MONTH PIC 99. 

03 ORDER-DAY PIC 99. 

03 ORDER-YEAR PIC 99. 
02 ISSUE-COUNT. 

03 ISS-MONTH-1 PIC 9(5). 

03 ISS-MONTH-2 PIC 9(4). 

03 ISS-MONTH-3 PIC 9(4). 

03 ISS-QUARTER-1 PIC 9(4). 


03 ISS-QUARTER-2 PIC 9(4). 
ISS-QUARTER-3 PIC 9(4). 
02 BACK-ORDER-IND PIC X. 

02 COMMENT PIC X(8). 
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APPENDIX F - PERFORMANCE DATA 


COMPILER MEMORY MAP 


F5.1 Compiler Memory Map D5.1 Compiler Memory Map 
| (Floppy Disk) (Rigid Disk) 
0 0 | 
OPERATING OPERATING 
SYSTEM SYSTEM 
(8K) (8K) 
2000 2000 
COBOL COBOL 
COMPILER COMPILER 
(16.6K) | (15.9K) 
627A 5F7A 
USER USER 
AVAILABLE AVAILABLE 
MEMORY MEMORY 
(MAX. 31.4K) (MAX. 24.1K) 
C000 
SHARED 
MEMORY 
-END OF DFFF 
RAM 
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RUNTIME MEMORY MAP 


F5.1 Runtime Memory Map - D5.1 Runtime Memory Map 
(Floppy Disk) | | (Rigid Disk) | 


0 0 
OPERATING OPERATING 
SYSTEM SYSTEM 
2000 : 2000 
COBOL COBOL 
RUNTIME RUNTIME 
| — 2 6657 3 
| | 7 6757 | LINKAGE SECTION 
‘ge | a nn 
70B7 ) 
71B7 | LINKAGE SECTION 
USER USER 
AVAILABLE AVAILABLE 
_ MEMORY MEMORY 
C000 : 
| HARED / 


MEMORY 
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RUNTIME INTERPRETER: 


Average Number of Bytes 


OPEN/CLOSE 
MOVE 
ACCEPT 
DISPLAY 
READ 
WRITE 
PERFORM 
SUBTRACT, 
ADD, 
MULTIPLY, 
DIVIDE 


IF THEN GOTO 


Page 


4 
5 


11 


STORAGE SIZE 


per/Op Code: 
bytes 
bytes 
bytes 
bytes 
bytes 
bytes 


bytes 


bytes 


bytes 


F=035 


READERS 
COMMENTS 


We welcome comments on the usefulness and readability of 
this manual. Your comments will help us improve the quality 
of future publications. | 


The COBOL REFERENCE MANUAL 


YES NO 

o Does this publication meet your needs? O 0 
o Did you find the material: 

- Easy to read and understand? oO ‘= 

- ‘Complete? a 0 Oo 

- Written for your level? C C 


Oo Please indicate any comments in the space 
provided, if you have any. 


FOLD THE FORM ON THE DOTTED LINES, STAPLE, ADD POSTAGE STAMP, 
AND MAIL. 


CODEX CORP. 

INTELLIGENT TERMINAL SYSTEMS GROUP 
3013 S. 52nd ST. 

TEMPE, AZ 85252 | 

ATTN: TECHNICAL DOCUMENTATION DEPT. 
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